.MAIN. MACY11 30A(1052) 19-APR-78 11;44 PAGE 1 
C2DLDC.P11 19-APR-78 11:41 

.REM @ 



SEQ 0061 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT name: 
DATE CREATED: 
MAINTAINER: 
author: 



AC-8528C-MC 
CZDLDCO DL11-W DIAG 
MARCH 1978 

DIAGNOSTIC ENGINEERING 
DAN CASALETTO 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUWENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFI LIATED COMPANEIS. 

COPYRIGHT (C) 1976 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWNG ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL PDP UNIBUS MASSBUS 

DEC DECUS DECTAPE 
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no GENERAL INFORMATION 



m ABSTRACT 



THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 

DL11-W SERIAL LINE/ REAL TIME CLOCK INTERFACE. THE PROGRAM 

WILL RUN WITHOUT ANY SPECIAL TEST FIXTURES BY DEFAULT^ HOWEVER, A WRAP 

CABLE CAN BE USED AND TESTED BY OPTION (BIT7 OF SWR). 

THIS TEST OPERATES ON THE CONSOLE DL1 1 -W SERIAL LINE AND CLOCK INTERFACES 
AS WELL AS UP TO FIFTEEN( 15) ADDITIONAL IDENTICALLY CONFIGURED DL11-W 

SERIAL LINE INTERFACES. THE DEFAULT ADDRESSES ARE: 

A. CONSOLE - 177560 SERIAL LINE 

177546 CLOCK 

B. OTHER SERIAL LINE - 776500 FIRST SERIAL LINE ADDRESS 

OF 15 CONSECUTIVE SERIAL 
LINE ADDRESSES 

THE PROGRAM IS DESIGNED TO RUN ON ANY PDP-11 WITH BK OF MEMORY 

AND A DL11-W MODULE. IT CAN BE RUN UNDER XXDP.APT, AND ACT MONITORS, 

AND ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, 

SOFTWARE SWITCH REGISTER = LOCATION 176 

POWER FAILURE IS SUPPORTED FOR SYSTEMS WITH CORE MEMORY. 

NOTE: THIS DIAGNOSTIC WITH THE SWR = 000020 

(CLOCK TESTS ONLY) SHOULD BE USED ON SWITCHLESS CPU'S 
TO TEST KW-1 1 L LINE CLOCK MODULES. 

1.2 SYSTEM REQUIREMENTS 



1,2.1 EQUIPMENT 

STANDARD 1 1 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 

AND BK OF MEMORY, 



1.2.2 STORAGE 

THE PROGRAM USES MEMORY FRO^ 00000 TO 22372 
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SEQ 0003 



1.3 ASSUfVIPTIONS 



A« IF THE UNIT UNDER TEST (OUT) IS THE CONSOLE , THE PROGRAM WILL 

ASSUME THE REAL TIME CLOCK (RTC) IS ENABLED AND WILL TEST IT 
UNLESS THE TESTS ARE DISABLED BY BITS OF THE SWR, 

B. IF THE UUT IS NOT THE CONSOLE, THE RTC IS NOT TESTED FOR THAT DEVICEe 

C, THE PROGRAM WILL ASSUME THE ERROR FLAG BITS AND THE BREAK FUNCTION 
OF THE DL11-W ARE DISABLED AND WILL NOT TEST THESE FUNCTIONS 
UNLESS ENABLED BY BIT10 (FOR ERROR FLAGS) AND BITS (FOR BREAK) 

OF THE SWR. THE DEFAULT CHARACTER SIZE IS 8 BITS (SEE PARA 2.3,2) « 



2.0 OPERATING INSTRUCTIONS 



2. 1 LOADING PROCEDURE 



USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 



2.2 STARTING PROCEDURE 



LOAD THE SWITCH REGISTER WITH SETTING 

(SOFTWARE SWITCH REGISTER LOCATION = 176) 

A. START AT 200. 

AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS IDENTIFICATION 
AND REPORT THE NUMBER OF DEVICES UNDER TEST (NUMBER IS OCTAL) . 
"END PASS" IS PRINTED AFTER A FULL PASS HAS BEEN MADE ON ALL DEVICES 
UNDER TEST - 

B. START AT 204. ****NOTE**** 

THE "ECHO" TEST WILL BE EXECUTED. AN IS PRINTED AT THE 

BEGINNING OF THE TEST . THE ECHO TEST READS A CHARACTER FROM 
THE TERMINAL, WRITES THAT CHARACTER TO THE TERMINAL AND 
REPORTS ANY ERROR FLAGS SET IN THE RECEIVER BUFFER. 
A CQNTROL-C HALTS THE TEST AND PRINTS "STOP" AT THE TERMINAL 
CONTINUING RESTARTS THE ECHO TEST. 

C . START AT 210. ****NOTE**** 

THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY CHARACTER 
AT THE TERMINAL, HALTS THE TEST. CONTINUING RESTARTS THE TEST. 
THE TEST OUTPUTS 32 CHARACTERS ON A LINE AND REPEATS THE 
PATTERN EVERY THREE LINES. THE PATTERN IS AS FOLLOWS 
(OCTAL CODE 040 — > 377) : 

(OCTAL CODE) 

I "/^$%<S' ( )*+,-./0 123456789: ;< = >? (040 — > 077) 



@ABCDEFGHIJKLMN0P0RSTUVWXY2[\]' 
' ABCDEFGHI JKLMN0PQRSTUVWXY2 



(100 

(140 



137) 
177) 



[LOWER CASE ALPHA] 
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THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL 
DOES NOT HAVE LOWER CASE: 

@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\ [UPPER CASE ALPHA] 



*** ♦NOTE**** 



IF THE TESTING ON TERMINIALS OTHER THAN THE CONSOLE IS DESIRED 
FOR TESTS B OR C,SEE SECTION 2.3.4. AND 2.3.5, OF THIS DOCUMENT. 
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SEQ 0005 



2.3 



OPERATING PROCEDURE 



2.3. 1 



OPERATIONAL SWITCH SETTINGS 



NOTE: IF NO HARDWARE SWITCH REGISTER IS AVAILABLE THE PROGRAM 
WILL AUTOMATICALLY USE THE CONTENTS OF LOCATION 
176 AS THE SOFTWARE SWITCH REGISTER. THE USER SHOULD 
SET THIS LOCATION BEFORE STARTING THE PROGRAM. IF A 
HARDWARE SWITCH IS AVAILABLE AND A SOFTWARE SWR IS 
DESIRED, PUT ALL SWITCHES UP. 



BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING '^G 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. BECAUSE THIS DIAGNOSTIC USES THE MAINTENANCE BIT 
OF THE SERIAL LINE, THE CONTROL-G SHOULD BE ISSUED DURING PROGRAM 
TYPEOUTS AT THAT TIME THE MAINTENANCE BIT IS SURE TO BE CLEAR. 

IF A CONTROL-G IS DETECTED, UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 



BIT15 
BIT14 
BIT13 
BIT12 
BIT1 1 
BIT10 
BIT09 
BITOB 
BIT07 
BITOB 
BITOB 
BIT04 



- HALT ON ERROR 

- SCOPE LOOP 

- INHIBIT ERROR TYPEOUT 

- UNUSED 

- UNUSED 

- ENABLE ERROR FLAGS TESTS 

- LOOP ON ERROR 

- ENABLE BREAK FUNCTION TESTS 

- ENABLE DATA TEST WITH WRAP CABLE 

- INHIBIT RTC TESTS (ALLOW ONLY SLU TESTS) 

- ALLOW MANUAL SETTING OF "$DEVM" (DEVICE MAP) 

- INHIBIT SLU TESTS (ALLOW ONLY LINE CLOCK TESTS) 



(IE) 



SWR=XXXXXX NEW= 



POSSIBLE RESPONSES ARE: 



1 . 
2. 



<CR> 

6 DIGITS 0-7 



U 



IF NO CHANGES ARE TO BE MADE 

TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
VALUE ; LAST DIGIT FOLLOWED BY <CR>. 
TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 
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SEQ 0006 



2.3.2 SETTING BITS PER CHARACTER 



THIS PROGRAM DEFAULTS TO TESTING 8 BITS PER CHARACTER. IF THE 
SERIAL LINE IS SET FOR 5~>7 BITS PER CHARACTER, SET THE 
MEMORY LOCATION "SUSWR" AS FOLLOWS: 



CHAR. SIZE 
(# OF BITS) 



"$USWR" CONTENTS 
(BINARY) (OCTAL) 



100000000 
010000000 
001000000 
000100000 



400 
200 
100 
40 



"$USWR» IS USED IN THE DATA PATH TESTS TO LIMIT THE BINARY 
COUNT TEST PATTERN TO THE NUMBER OF BITS SELECTED ON THE 
SERIAL LINE. 



2.3.3 



RUNNING UNDER APT 



THE APT MAILBOX IS LOCATED AT LOCATION 500, TO ALLOW ADDITIONAL SERIAL 
LINE VECTOR ASSIGNMENTS TO THE 400 AREA OF MEMORY. 



THE EXECUTION TIMES PROVIDED ARE FOR EXECUTION WITH AN 11/34 PROCESSOR, 

CORE MEMORY, AND 110 BAUD. 
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SEO OOQ? 



2.3.4 RUN WITH ALTERNATE CONSOLE ADDRESS 



TO USE A CONSOLE ADDRESS OTHER THAN 177560, OR VECTOR OTHER 

THAN 60, THE OPERATOR MUST SUPPLY THE PROGRAM WITH THE 

CORRECT ADDRESSES BY INSERTING THEM AT THE TAG LABELED "CRCSR" : 

CRCSR: ADDRESS OF RECEIVER RCSR 

CRBUF: ADDRESS OF RECEIVER BUFFER 

CTCSR: ADDRESS OF TRANSMITTER CSR 

CTBUF: ADDRESS OF TRANSMITTER BUFFER 

CRVECT: ADDRESS OF RECEIVER VECTOR 

CRPSW: ADDRESS OF ASSOCIAED PSW 

CTVEC". : ADDRESS OF TRANSMITTER VECTOR 

CTPSW: ADDRESS OF ASSOCIATED PSW 



2.3.5 TESTING ADDITIONAL SERIAL LINES 



THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE SLU'S. IT REQUIRES 
THE ADDRESS OF THE FIRST ADDITIONAL RCSR (C'ORED AT "$BASE" ) AND 
ITS INTERRUPT VECTOR (STORED AT "$VECT1 " ) ; AND WILL BE ABLE 
TO ADDRESS ANY SLU STARTING AT THE SPECIFIED BASE ADDRESS UP TO 
15 CONSECUTIVE DEVICES, 

EXAMPLE: $BASE: 776500 

$VECT1: 300 

THE PROGRAM WILL BE ABLE TO TEST THE CONSOLE PLUS ANY 
ADDITIONAL DL11-W SLU ' S WITHIN THE RANGE 776500 — > 776660 

SBASE AND $VECT1 DEFAULT TO 776500 AND 300 RESPECTIVELY. 

THE PROGRAM ASSOCIATES UNIT NUMBERS TO DEVICES AS FOLLOWS: 
(NUMBERS IN PARENTHESIS ARE OCTAL) 

UNIT# — > CONSOLE [ADDRESS STORED AT "CRCSR" ] 
UNIT# 1 — > BASE ADDRESS STORED AT "$BASE" 

ASSOCIATED BASE VECTOR STORED AT"$VECT1 - 
UNIT# 2 — > BASE ADDRESS + (10) 

BASE VECTOR + (10) 
UNIT# 3 — > BASE ADDRESS + (20) 

BASE VECTOR + (20) 
UNIT# 4 ~> BASE ADDRESS + (30) 

BASE VECTOR -I- (30) 

f 
! 
! 
I 

I 
i 

V 

UNIT^"^ — > BASE ADDRESS + (160) 
BASE VECTOR + (160) 



i 4 
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SEQ 00©8 



STARTING AT LOCATION 200 AND HAVING BITS OF SWR CLEAR, THE PROGRAM WILL SELF 

SIZE THE NUMBER OF DEVICES (STARTING AT THE BAS ADDRESS) AND 

STORE A BIT MAP AT "$DEVM" (DEVICE MAP) TO INDICATE WHICH UNIT NUMBERS 

ARE PRESENT AND WILL BE TESTED: 



! UNIT ! UNIT ! ! UNIT ! UNIT ! CONSOLE! 

! 15 ! 14 1 ! 2 ! 1 i I 

A BIT MAP CAN BE ENTERED AT "SDEVM" PRIOR TO STARTING THE PROGRAM 
SETTING BITS OF THE SWR INHIBITS THE SELF-SIZING AND DEVICE MAP 
GENERATION, AND USES THE VALUE STORED BY THE OPERATOR, 

EXAMPLE: 



SWR = 000040 

$BASE: 776500 

$VECT1: 300 

$DEVM: 13 



[BINARY 000 000 000 100 000] 



[BINARY - 000 000 000 001 Oil] 



THE PROGRAM WILL TEST - 

UNIT# = CONSOLE 
UNIT# 1 = 776500 ; 300 
UNIT# 3 = 776520 ; 320 
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SEQ 0009 



2.4 EXECUTION TIMES (110 BAUD) 

LONGEST SUBTEST TIME = 50 SECONDS 
PASS TIME = 60 SECONDS 

ADDITIONAL DEVICES ^ 55 SECONDS/DEVICE 



3-0 ERROR REPORTING 



IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR 
IS NOT SET, A PRINTOUT RESULTS IN THE FORIVi: 

" (SOME ASCI I fVIESSAGE) " 

TEST# ERR PC RCSR [ANY APPLICABLE DAT HEADINGS] 
XXXXXX XXXXXX XXXXXX [ANY APPLICABLE DATA] 

NOTE: "RCSR" IS DEPENDENT ON THE FAILURE 

& THEREFORE COULD BE TCSR , RBUF , TBUF . OR LKS 

WHERE "XXXXXX" IS AN OCTAL NUMBER. 

THIS ERROR PRINTOUT OCCURS PROVIDED THE ERROR THAT EXISTS 
WOULD NOT HINDER THE TYPEOUT. IN CASES WHERE IT IS NOT POSSIBLE 
TO PRINT AN ERROR fViESSAGE (I.E. FATAL CONSOLE TRANSMITTER 
FAILURES), A HALT OCCURS AND THE PC CAN BE EXAfVlINED BY THE OPERATOR 
TO FIND THE ERROR INFORMATION IN THE PROGRAFVI LISTING. 

NOTE'. FOR SOFTWARE SWITCH OPERATION, THE SWITCH REGISTER CAM 

BE CHANGED BY TYPING A CONTROL-G AT THE CONSOLE DURING ERROR PRIMTOUTS. 

AFTER CONTINUING FROM THE ERROR HALT THE OLD SWR CONTENTS 

IS DISPLAYED AND THE NEW CONTENTS CAN BE ENTERED. 

IF ERROR HALTS ARE DISABLED, THE CONTROL-G RESPONSE OCCURS 

l!VII\^EDIATELY FOLLOWING THE TYPEOUT. 
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SEQ 001 § 



4.0 SUBROUTINE ABSTRACTS 



4.1 TRAPCATCHER 



THIS IS A SERIES OF INSTRUCTIONS STARTING AT LOCATION DESIGNED TO 
DETECT AND ISOLATE UNEXPECTED TRAPS TO THE TRAP AND INTERRUPT VECTOR 
AREA OF IVIEiViORY. 

EACH VECTOR ENTRANCE ADDRESS IS LOADED WITH THE ADDRESS OF THE NEXT 
LOCATION, THE NEXT LOCATION IS LOADED WITH A BREAK POINT TRAP (000003). 
THUS AN ILLEGmL TRAP OR INTERRUPT CAUSES A TRAP THROUGH THE BPT V£CT0RC14| 
WHICH POINTS TO THE "CATCH" ROUTINE, 

THE "CATCH" ROUTINE REPORTS THE PC THAT CAUSED THE ORIGINAL TRAP AND 
THE LPCATION OF THE TRAP VECTOR (IF UNDER APT, AN ERROR IS INDICATED TO APT|. 
AFTER REPORTING THE ERROR THE PROGRAM HALTS. THE PROGRAf^^ fVIUST BE RESTARTED 
AT THIS POINT. 



4.2 WRPSW 



THIS ROUTINE IS USED TO WRITE THE PSW BY POPPING VALUES FROM THE 
STACK. THIS METHOD IS USED TO BE COMPATIBLE WITH ALL 11 TAMILY 
PROCESSORS, 



4.3 SCOPE 



THIS ROUTINE CALL IS PLACED BETWEEN EACH SUBTEST. IT RECORDS THE STARTING 
ADDRESS OF EACH SUBTEST AS IT IS BEING ENTERED AND UPDATES THE 
TEST NUMBER. IF A SCOPE LOOP IS REQUESTED, IT WILL dlMP TO THE START OF THE 
SUBTEST AT WHICH THE SCOPE LOOP IS REQUESTED^ 
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SEO 0011 



4.4 ERROR 



THIS ROUTINE CALL IS PLACED WHEREEVER AN ERROR REPORT 
IS DESIRED. THE LOWER BYTE OF THIS CALL IS USED AS THE ERROR NUfVIBER 
AND AS A POINTER INTO THE ERROR TABLE . THIS ROUTINE REPORTS ERRORS 
TO APT USING "SAPTYPE^ AND TYPES ERROR REPORTS TO THE CONSOLE 
USING "SERRTYPE", 



4.5 $POWER 



THIS ROUTINE SAVES ALL GENERAL REGISTERS DURING POWER-DOWN 
AND RESTORES THEM AT POWER-UP. IF A POWER FAILURE OCCURS 
"POWER" IS PRINTED AT THE CONSOLE AFTER POWER IS RESTORED. 



4.6 CKSWR 



THIS ROUTINE CALL IS USED TO DETECT THE RECEPTION OF A CONTROL^G 
FROI^ THE CONSOLE. THE CALL USES "$READ" TO PERFORM THE CONTROL^G 
SEQUENCE OF DISPLAYING THE CONTENTS OF THE SOFTWARE Sl^ITCH REGISTER 
AND THE ENTERING THE NEW CONTENTS FROM THE TERIVIINAL* 
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SEQ 0012 



422 
423 
424 
425 
426 
427 
428 
429 



.SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 



430 


001 100 


STACK«= 


1 100 




431 




.EOUIV 


EMT, ERROR ; 


;BASIC DEFINITION OF ERROR 


432 




.EOUIV 


lOT, SCOPE ; 


;BASIC DEFINITION OF SCOPE 


433 










434 




;*MISCELLANEOUS DEFINITIONS 


435 


00001 1 


HT = 


1 1 


ICODE FOR HORIZONTAL TAB 


436 


000012 


LF = 


12 ; 


;CODE FOR LINE FEED 


437 


000015 


CR = 


15 ; 


;CODE FOR CARRIAGE RETURN 


438 


000200 


CRLF = 


200 ; 


iCODE FOR CARRIAGE RETURN- 


439 


177776 


PS = 


177776 ; 


;PR0CE:,S0R STATUS WORD 


440 




.EOUIV 


PS, PSW 




441 


177774 


STKLMTs 


177774 ; 


•.STACK LIMIT REGISTER 


442 


177772 


PIRO = 


177772 ; 


; PROGRAM INTERRUPT REQUEST 


443 


177570 


DSWR = 


177570 ; 


;HARDWARE SWITCH REGISTER 


444 


177570 


DDISPs 


177570 ; 


;HARDWARE DISPLAY REGISTER 


445 










446 




'.♦GENERAL PURPOSE REGISTER DEFINITIONS 


447 


000000 


R0 = 


%0 ; 


;GENERAL REGISTER 


448 


000001 


R1 = 


%1 ; 


jGENERAL REGISTER 


449 


000002 


R2 = 


%2 


IGENERAL REGISTER 


450 


000003 


R3 = 


%3 ; 


:GENERAL REGISTER 


451 


000004 


R4 = 


%4 


•.GENERAL REGISTER 


452 


000005 


R5= 


%5 ; 


;GENERAL REGISTER 


453 


000006 


R6 = 


%6 ; 


:GENERAL REGISTER 


454 


000007 


R7 = 


%7 ; 


;GENERAL REGISTER 


455 


000006 


SP = 


%6 ; 


;STACK POINTER 


456 


000007 


PC= 


%7 ; 


•.PROGRAM COUNTER 


457 










458 




;*PRIORITY LEVEL DEFINITIONS 


459 


000000 


PRO = 


; 


•.PRIORITY LEVEL 


460 


000040 


PR1 = 


40 ; 


;PRIORITY LEVEL 1 


461 


000100 


PR2 = 


100 ; 


;PRIORITY LEVEL 2 


462 


000140 


PR3 = 


140 ; 


;I-HI0RITY LEVEL 3 


463 


000200 


PR4 = 


200 ; 


•.PRIORITY LEVEL 4 


464 


000240 


PR5= 


240 ; 


;PRIORITY LEVEL 5 


465 


000300 


PR6« 


300 


IPRIORITY LEVEL 6 


466 


000340 


PR7 = 


340 ; 


IPRIORITY LEVEL 7 


467 










468 




•.•"SWITCH REGISTER" SWITCH DEFINITIONS 


469 


100000 


SW15 = 


100000 




470 


040000 


SW14 = 


40000 




471 


020000 


SW13 = 


20000 




472 


01 0000 


SW12 = 


10000 




473 


004000 


SW1 1 = 


4000 




474 


002000 


SW10 = 


2000 




475 


001000 


SW09 = 


1000 




476 


000400 


SW08= 


400 




477 


000200 


SW07« 


200 





.MAIN. MACYII 30A(1052) 19-APR-78 11:44 PAGE 13 



SEQ 0013 



CZDLDC.P11 


19-APR-78 1 1 :41 


BASIC DEFINITIONS 


478 


000100 


SW06= 


100 


479 


000040 


SW05 = 


40 


480 


000020 


SW04 = 


20 


481 


000010 


SW03 = 


10 


482 


000004 


SW02 = 


4 


483 


000002 


SW01 = 


2 


484 


000001 


SW00 = 


1 


485 




.EOUIV 


SW09,SW9 


486 




.EOUIV 


SWOB.SWB 


487 




.EOUIV 


SW07,SW7 


488 




.EOUIV 


SW06.SW6 


489 




.EOUIV 


SW05,SW5 


490 




.EOUIV 


SW04,SW4 


491 




.EOUIV 


SW03,SW3 


492 




.EOUIV 


SW02,SW2 


493 




.EOUIV 


SW01 .SW1 


494 




.EOUIV 


SWOO.SWO 


495 








496 




:*DATA BIT DEFINITI 


497 


100000 


BIT15= 


100000 


498 


040000 


BIT14= 


40000 


499 


020000 


BIT13= 


20000 


500 


01 0000 


BIT12= 


10000 


501 


004000 


BIT1 1 = 


4000 


502 


002000 


BIT10= 


2000 


503 


001000 


BIT09= 


1000 


504 


000400 


BIT08= 


400 


505 


000200 


BIT07= 


200 


506 


000100 


BIT06= 


100 


507 


000040 


81105= 


40 


508 


000020 


BIT04= 


20 


509 


000010 


BIT03= 


10 


510 


000004 


BIT02= 


4 


51 1 


000002 


BIT01= 


2 


512 


000001 


BITOO= 


1 


513 




.EOUIV 


BIT09,BIT9 


514 




.EOUIV 


BIT08,BIT8 


515 




.EOUIV 


BIT07,BIT7 


516 




.EOUIV 


BIT06,BIT6 


517 




.EOUIV 


BIT05,BIT5 


518 




.EOUIV 


BIT04,BIT4 


519 




.EOUIV 


BIT03,BIT3 


520 




•EOUIV 


BIT02,BIT2 


521 




.EOUIV 


BIT01 .BIT1 


522 




.EOUIV 


BITOO.BITO 


523 
524 




;*BASIC 


"CPU" TRAP 


525 


000004 


ERRVEC= 


4 


526 


000010 


RESVEC= 


10 


527 


000014 


TBITVEC 


= 14 


528 


000014 


TRTVEC= 


14 


529 


000014 


BPTVEC= 


14 


530 


000020 


IOTVEC= 


20 


531 


000024 


PWRVEC= 


24 


532 


000030 


EMTVEC= 


30 


533 


000034 


TRAPVEC 


»34 



TIME OUT AND OTHER ERRORS 
RESERVED AND ILLEGAL INSTRUCTIONS 
"T" BIT 
TRACE TRAP 

BREAKPOINT TRAP (BPT) 
INPUT/OUTPUT TRAP (lOT) **SCOPE** 
POWER FAIL 

EMULATOR TRAP (EMT) ♦*ERROR** 
"TRAP* TRAP 
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SEQ 0014 



534 

535 

536 

537 

53B 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 



000014 
000016 



000174 
000176 



000200 
000204 
000210 



000060 
000064 
000240 
176500 
000300 
000400 
000001 
161000 
000003 



000014 
012254 
000340 

000042 
000000 



000174 
000000 
000000 



TKVEC« 60 

TPVEC» 64 

PIR0VEC»240 

ABASE= 

AVECTIa 

AUSWR= 

$TNa 

SSWRo 

BPT = 



176500 
300 
400 
1 

161000 
000003 



;;TrY KEYBOARD VECTOR 
;;TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 



;THIS IS THE COMMAND FOR A 
; THROUGH 14 ( BPT TRAP) 



.=0 



;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ".+2,BPT'' 

;*SEOUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS 

; ♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 



. = 14 

.WORD CATCH 
.WORD 340 

42 

.WORD 



;THE BPT TRAP VECTOR POINTS TO THE 
; ILLEGAL TRAP HANDLER "CATCH" 



DISPREG: .WORD 
SWREG: .WORD 



174 







000200 

000137 002546 

000137 014762 

000137 015202 



.=200 

UMP START 

JMP ECHO 

JMP OUTTST 



;D0 INTERFACE TEST 
;D0 ECHO TEST 

;D0 OUTPUT TEST TO TERMINAL 
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570 



571 




000500 


500 


572 






.SBTTL ACT11 HOOKS 


573 










574 








575 






;HOOKS REQUIRED BY ACT11 


576 




000500 


$SVPC=. 


;SAVE PC 


577 




000046 


.=46 




578 


000046 


01 2152 


SENDAD 


; ;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 


579 




000052 


.=52 




580 


000052 


000000 


.WORD ;;2)SET L0C.52 TO ZERO 


581 




000500 


.=$SVPC 


; ; RESTORE PC 


582 






.SBTTL APT PARAMETER BLOCK 


583 










584 






•'^*******^***^L******^,rlf,H,*,^itf*'¥************************************ 


585 






•,SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


586 






• •********************i^**^*****m********************************m 


587 




000500 


.$X=. 


;SAVE CURRENT LOCATION 


588 




000024 


.=24 


;SET POWER FAIL TO POINT TO START OF PROGRAM 


589 


000024 


000200 


200 


;FOR APT START UP 


590 




000044 


.=44 


; POINT TO APT INDIRECT ADDRESS PNTR. 


591 


000044 


000500 


SAPTHDR 


; POINT TO APT HEADER BLOCK 


592 




000500 


. = .$X 


; RESET LOCATION COUNTER 


593 






'^•^t*****i^***********:t!******************************************** 


594 






;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


595 






•.INTERFACE SPEC. 




596 










597 


000500 




SAPTHD: 




598 


000500 


000000 


SHIBTS: .WORD ;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 


599 


000502 


001066 


SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 


600 


000504 


000050 


$TSTM: .WORD 50 ;;RUN TIM OF LONGEST TEST 


601 


000506 


000060 


SPASTM: .word 60 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


602 


000510 


000055 


SUNITM: .word 55 ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 


603 


000512 


000030 


.WORD $ETEND-$MAlL/2 LENGTH MAI LBOX-ETABLE( WORDS) 



604 
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605 






.SBTTL 


COMMON 


TAGS 






606 
















607 














608 






;*THIS 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


609 






;*USED 


IN THE PROGRAM. 






610 
















61 1 




001000 




.=1000 








612 


001 000 




SCMTAG: 








; START OF COMMON TAGS 


613 


001 000 


000000 




.WORD 









614 


001002 


000 


STSTNM: 


.BYTE 







;C0NTAINS THE TEST NUMBER 


615 


001003 


000 


SERFLG: 


.BYTE 







;C0NTAINS ERROR FLAG 


616 


001004 


000000 


$1CNT: 


.WORD 







;CONTAINS SUBTEST ITERATION COUNT 


617 


001006 


000000 


SLPADR: 


.WORD 







.•CONTAINS SCOPE LOOP ADDRESS 


618 


001010 


000000 


SLPERR: 


.WORD 







;CONTAINS SCOPE RETURN FOR ERRORS 


619 


001012 


000000 


SERTTL: 


.WORD 







;CONTAINS TOTAL ERRORS DETECTED 


620 


001014 


000 


SITEMB: 


.BYTE 







;CONTAINS ITEM CONTROL BYTE 


621 


001015 


001 


SERMAX: 


.BYTE 


1 




•.CONTAINS MAX. ERRORS PER TEST 


622 


001016 


000000 


SERRPC: 


.WORD 







;CONTAINS PC OF LAST ERROR INSTRUCTION 


623 


001020 


000000 


SGDADR: 


.WORD 







; CONTAINS ADDRESS OF 'GOOD' DATA 


624 


001 022 


000000 


SBDADR: 


.WORD 







ICONTAINS ADDRESS OF 'BAD' DATA 


625 


001024 


000000 


SGDDAT: 


.WORD 







;CONTAINS 'GOOD' DATA 


626 


001026 


000000 


$BDDAT: 


.WORD 







;CONTAINS 'BAD' DATA 


627 


001030 


000000 




.WORD 







; RESERVED— NOT TO BE USED 


628 


001 032 


000000 




.WORD 









629 


001034 


000 


$AUTOB: 


.BYTE 







;AUTOMATIC MODE INDICATOR 


630 


001035 


000 


SINTAG: 


. BYTE 







;INTERR'PT MODE INDICATOR 


631 


001036 


000000 




.WORD 









632 


001 040 


177570 


SWR: 


.WORD 


DSWR 




;ADDRESS OF SWITCH REGISTER 


633 


001042 


177570 


DISPLAY 


: .WORD 


DDISP 




lADDRESS OF DISPLAY REGISTER 


634 


001044 


177560 


$TKS: 


1 77560 






.•TTY KBD STATUS 


635 


001046 


177562 


$TKB: 


177562 






;TTY KBD BUFFER 




001 050 






177564 






;TTY PRINTER STATUS REG. ADDRESS 


637 


001052 


177566 


$TPB: 


177566 






•,TTY PRINTER BUFFER REG. ADDRESS 


638 


001 054 


000 


$NU L L : 


.BYTE 







ICONTAINS NULL CHARACTER FOR FILLS 


639 


001055 


002 


SFILLS: 


.BYTE 


2 




ICONTAINS # OF FILLER CHARACTERS REQUIRED 


640 


001056 


012 


$FI LLC: 


. BYTE 


12 




; INSERT FILL CHARS. AFTER A "LINE FEED" 


641 


001057 


000 


STPFLG: 


.BYTE 







; "TERMINAL AVAILABLE" FLAG ( BI T<07>»0=iYES ) 


642 


001060 


000000 


SESCAPE 


:0 






•.ESCAPE ON ERROR ADDRESS 


643 


001062 


077 


SOUES: 


.ASCI I 


/?/ 




lOUESTION MARK 


644 


001063 


015 


$CRLF: 


.ASCII 


<15> 




.•CARRIAGE RETURN 


645 


001064 


000012 


$LF: 


. ASCIZ 


<12> 




;LINE FEED 


646 






;;****♦ 








647 






.SBTTL 


APT MAILBOX-ETABLE 




648 
649 










650 






.EVEN 










651 


0010S6 




SMAIL: 








APT MAILBOX 


652 


001066 


000000 


SMSGTY: 


.WORD 


AMSGTY 




MESSAGE TYPE CODE 


653 


001070 


000000 


SFATAL: 


.WORD 


AFATAL 




FATAL ERROR NUMBER 


654 


001 072 


000000 


STESTN: 


.WORD 


ATESTN 




TEST NUMBER 


655 


001074 


000000 


$PASS: 


.WORD 


APASS 




PASS COUNT 


656 


001076 


000000 


SDEVCT: 


.WORD 


ADEVCT 




DEVICE 


COUNT 


657 


001 100 


000000 


$UNIT: 


.WORD 


AUNIT 




I/O UNIT NUMBER 


658 


001102 


000000 


$MSGAD: 


.WORD 


AMSGAD 




MESSAGE ADDRESS 


659 


001104 


000000 


$MSGLG: 


.WORD 


AMSGLG 




MESSAGE LENGTH 


660 


001106 




SETABLE 








APT ENVIRONMENT TABLE 
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661 


001 106 


000 


$ENV: 


.BYTE 


AENV 


662 


001 107 


000 


SENVM: 


.BYTE 


AENVM 


663 


001 1 10 


000000 


SSWREG: 


.WORD 


ASWREG 


664 


001 1 12 


000400 


$USWR: 


.WORD 


AUSWR 


665 


001 114 


000000 


SCPUOP: 


.WORD 


ACPUOP 


666 














667 














668 








* 






669 








* 






670 








♦ 






671 














672 


001 1 16 


000 


SMAMSI : 


.BYTE 


AMAMS1 


673 


001 1 17 


000 


SMTYPI : 


.BYTE 


AMTYP1 


674 














675 














676 














677 














678 


001 120 


000000 


$MADR1 : 


.WORD 


AMADR1 


679 














680 


001 122 


000 


$MAMS2: 


.BYTE 


AMAMS2 


681 


001 1 23 


000 


$MTYP2: 


.BYTE 


AMTYP2 


682 


001 1 24 


000000 


$MADR2: 


.WORD 


AMADR2 


683 


001 1 26 


000 


$MAMS3: 


.BYTE 


AMAMS3 


684 


001 127 


000 


$MTYP3: 


.BYTE 


AMTYP3 


685 


001 130 


000000 


$MADR3: 


.WORD 


AMADR3 


686 


001 1 32 


000 


$MAMS4: 


.BYTE 


AMAMS4 


687 


001 133 


000 


$MTYP4: 


.BYTE 


AMTYP4 


688 


001 1 34 


000000 


$MADR4: 


.WORD 


AMADR4 


689 


001 136 


000300 


$VECT1 : 


.WORD 


AVECT1 


690 


001 140 


000000 


$VECT2: 


.WORD 


AVECT2 


691 


001 142 


176500 


$BASE: 


.WORD 


ABASE 


692 


001 144 


000000 


$DEVM: 


.WORD 


ADEVM 


693 


001146 




SETEND: 






694 








•MEXIT 







SEQ 0017 



; ; ENVIRONMENT BYTE 
•.•.ENVIRONMENT MODE BITS 
; ; APT SWITCH REGISTER 
; ;USER SWITCHES 
; ;CPU TYPE, OPTIONS 
BITS 15-11=CPU TtPE 

1 1/04=01 ,1 1/05=02. 11 /20«03, 11 /40«04. 11/45=05 

1 1/70=06. PD0=07. 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS. M.S. BYTE 
;:MEM. TYPE.BLK-^'1 

MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE=001 

300 NSEC BIPOLAR=002 

500 NSEC MOS=003 
; ;HIGH ADDRESS . BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOa OF "TYPE" ABOVE 
;;HIGH ADDRESS. M.S. BYTE 
; ;MEM.TYPE,BLK#2 
; -.MEM. LAST ADDRESS . BLKA'2 
;;HIGH ADDRESS . M . S . BYTE 
; ;MEM.TYPE.BLK#3 
;;MEM.LAST ADDRESS , BLK#3 
;:HIGH ADDRESS.M.S.BYTE 
; ;MEM.TYPE,BLK#4 
;;MEM.LAST ADDRESS . BLK/5*4 
;: INTERRUPT VECT0R#1,BUS PRI0RITY#1 
INTERRUPT VECT0R#2BUS PRI0RITY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
; ;DEVICE MAP 
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SEQ 0018 



695 






.SBTTL ERROR 


POINTER 


TABLE 




696 


















697 






:*THIS TABLE 


CONTAINS 


THE 


INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


698 






;*THE INFORMATION 


IS 


OBTAINED 


BY USING THE INDEX NUMBER FOUND IN 


699 






;*LOCATiaN $ITEMB. 


THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


700 






;*N0TE1 : 


IF 


$ITEMB 


IS 


THE ONLY PERTINENT DATA IS (SERRPC). 


701 






;*N0TE2: 


EACH 


ITEM 


IN 


THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


702 


















703 






; * EM 






; 


POINTS TO THE ERROR MESSAGE 


704 






; * DH 






; 


POINTS TO THE DATA HEADER 


705 






;* DT 






5 


POINTS TO THE DATA 


706 






;* DF 






; 


POINTS TO THE DATA FORMAT 


707 


















708 


















709 


001 146 




SERRTB: 












710 


















711 


001 146 




SERRTB: 












712 


001 146 


01 5266 


EMI 










;"CAN NOT ACCESS TCSR" 


713 


001 150 


021451 


DH1 










; "TEST* ERR PC TCSR" 


714 


001 152 


022204 


DTI 










•,$TESTN, SERRPC, TCSR 


715 


001 154 


000000 















716 


















717 


001 1 56 


01 5312 


EM2 










;"CAN NOT ACCESS TBUF" 


718 


001 160 


021476 


DH2 










; "TEST* ERR PC TBUF" 


719 


001 1 62 


022214 


DT2 










;$TESTN. SERRPC, TBUF 


720 


001 164 


000000 















721 


















722 


001 166 


01 5336 


EM3 










;"TCSR DONE NOT CLEARED WITH TBUF FULL" 


723 


001 1 70 


021451 


DH1 










;"TEST# ERR PC TCSR" 


724 


001 1 72 


022204 


DTI 










;$TESTN, SERRPC, TCSR 


725 


001 1 74 


000000 















726 


















727 


001 1 76 


01 5403 


EM4 










;"TCSR DONE NOT SET" 


728 


001 200 


021451 


DH1 










; "TEST# ERR PC TCSR" 


729 


001202 


022204 


DTI 










;$TESTN, SERRPC, TCSR 


730 


001204 


000000 















731 


















732 


001 206 


01 5425 


EM5 










;TCSR DONE NOT SET WITH RESET 


733 


001210 


021451 


DH1 










; "TEST# ERR PC TCSR" 


734 


001 21 2 


022204 


DT 1 










;$TESTN, SERRPC, TCSR 


735 


001214 


000000 















736 


















737 


001 216 


01 5462 


EM6 










;"CAN NOT ACCESS RCSR" 


738 


001220 


021 523 


DH6 










;"TEST# ERR PC RCSR" 


739 


001222 


022224 


DT6 










;$TESTN. SERRPC, RCSR 


740 


001224 


000000 















741 


















742 


001226 


01 5506 


EM7 










; "CAN NOT ACCESS RBUF" 


743 


001230 


021550 


DH7 










; "TEST* ERR PC RBUF" 


744 


001 232 


022234 


DT7 










;$TESTN, SERRPC, RBUF 


745 


001234 


000000 















745 


















747 


001236 


01 5532 


EM10 










; "CAN NOT ACCESS LKS" 


748 


001 240 


021575 


DH10 










;"TEST# ERR PC LKS" 


749 


001242 


022244 


DT10 










jSTESTN, SERRPC, LKS 


750 


001244 


000000 
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751 








752 


001246 


01 5555 


EMI 1 


753 


001250 


021451 


DH1 


754 


001252 


022204 


DTI 


755 


001254 


000000 





756 








757 


001256 


01 5620 


EMI 2 


758 


001 260 


021451 


DH1 


759 


001262 


022204 


DTI 


760 


001 264 


000000 





761 








762 


001266 


01 5651 


EM13 


763 


001 270 


021451 


DH1 


764 


001272 


022204 


DT1 


765 


001 274 


000000 





766 








767 


001276 


01 5704 


EMM 


768 


001300 


021451 


DH1 


769 


001302 


022204 


DTI 


770 


001304 


000000 





771 








772 


001306 


01 5745 


EMI 5 


773 


001310 


021451 


DH1 


774 


001312 


022204 


DTI 


775 


001314 


000000 





776 








777 


001316 


01 601 


EM16 


778 


001320 


02 1 451 


DH1 


779 


001322 


022204 


DTI 


780 


001324 


000000 





781 








782 


001 32S 


01 6041 


EMI 7 


783 


001330 


021451 


DH1 


784 


001332 


022204 


DTI 


785 


001334 


000000 





786 








787 


001336 


01 6074 


EM20 


788 


001340 


021451 


DH1 


789 


001342 


022204 


DTI 


790 


001344 


000000 





791 








792 


001346 


016135 


EM21 


793 


001350 


021451 


DH1 


794 


001352 


022204 


DTI 


795 


001354 


000000 





796 








797 


001356 


01 6201 


EM22 


798 


001360 


021451 


DH1 


799 


001362 


022204 


DTI 


800 


001364 


000000 





801 








802 


001366 


01 6236 


EM23 


803 


001370 


021451 


DH1 


804 


001372 


022204 


DTI 


805 


001374 


000000 





806 









SEQ 0019 



;"BIT0 OF TCSR NOT CLEAR AFTER RESET" 
;»TEST# ERR PC TCSR 
;$TESTN, SERRPC, TCSR 



"CAN NOT SET BITO OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;"CAN NOT CLEAR BITO OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



"RESET DID NOT CLEAR BITO OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;"BIT2 OF TCSR NOT CLEAR AFTER RESET" 

; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"CAN NOT SET BIT2 OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"CAN NOT CLEAR BIT2 OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



"RESET DID NOT CLEAR BIT2 OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;"BIT6 OF TCSR NOT CLEAR AFTER RESET2 

; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"XMIT INTERRUPT WITH PRIORITY T 
; "TEST* ERR PC TCSR" 
jSTESTN. SERRPC, TCSR 



;»CAN NOT SET BIT6 OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC. TCSR 
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m 



807 


001376 


01 6267 


EM24 


"CAN NOT Clear bits of tcsr' 


808 


001400 


021 451 


DH1 


"lESlH ERR PC TCSR" 


809 


001 402 


022204 


DTI 


$TESTN,$ERRPC,TCSR 


810 


001404 


000000 







81 1 
812 


001406 


016322 


EM25 


"RESET uID NOT CLEAR BIT6 OF TCSR" 


813 


001410 


021451 


DH1 


"TEST# ERR PC TCSR" 


814 


001412 


022204 


DTI 


$TESTN,$ERRPC,TCSR 


815 


001414 


000000 







816 








"BIT6 OF RCSR NOT CLEAR AFTER RESET" 


817 


001416 


01 6363 


EM26 


818 


001420 


021523 


DH6 


"TEST# ERR PC RCSR" 


819 


001422 


022224 


DT6 ;$TESTN,$ERRPC,RCSR 


820 


001424 


000000 







821 










822 


001426 


01 6426 


EM27 


"RCVR INTERRUPT WITH PRIORITY 7" 


823 


001430 


021523 


DH6 


••TEST# ERR PC RCSR" 


824 


001432 


022224 


DT6 ;$TESTN.$ERRPC,RCSR 


825 


001434 


000000 







826 










827 


001436 


01 6465 


EM30 


"CAN NOT SET BIT6 OF RCSR" 


828 


001 440 


02 1 523 


DH6 


"TEST# ERR PC RCSR" 


829 


001 442 


022224 


DT6 ;$TESTN,$ERRPC,RCSR 


830 


001444 


000000 







831 










832 


001446 


01 6516 


EM31 


"CAN NOT CLEAR BIT6 OF RCSR" 


833 


001 450 


02 1 523 


DH6 


"TESTA* ERR PC RCSR" 


834 


001452 


022224 


DT6 


$TESTN,$ERRPC.RCSR 


835 


001454 


000000 







836 










837 


001456 


01 6551 


EM32 


"CAN NOT CLEAR BITS OF RCSR WITH RESET2 


838 


001460 


02 1 523 


DH6 


"TEST* ERR PC RCSR" 


839 


001462 


022224 


DT6 ;$TESTN.$ERRPC.RCSR 


840 


001 464 


000000 







841 










842 


001466 


016617 


EM33 


"BIT6 OF LKS NOT CLEAR AFTER RESET" 


843 


001 470 


021 575 


DH10 


"TEST* ERR PC LKS" 


844 


001472 


022244 


DT10 


$TESTN,$ERRPC, LKS 


845 


001474 


000000 







846 










847 


001476 


01 6661 


EM34 


"LKS INTERRUPT WITH PRIORITY 7" 


848 


001 500 


021575 


DH10 


"TEST* ERR PC LKS" 


849 


001 502 


022244 


DT10 


$TESTN,$ERRPC, LKS 


850 


001504 


000000 







851 










852 


001506 


01 6717 


EM35 


"CAN NOT SET BITS OF LKS" 


853 


001510 


021575 


OHIO 


"TEST* ERR PC LKS" 


854 


001512 


022244 


DT10 


$TESTN,$ERRPC, LKS 


855 


001514 


000000 







856 










857 


001516 


01 6747 


EM36 


"CAN NOT CLEAR BIT6 OF LKS" 


858 


001520 


021575 


DH10 


"TEST* ERR PC LKS" 


859 


001522 


022244 


DT10 


$TESTN,$ERRPC, LKS 


860 


001524 


000000 







861 










862 


001526 


01 7001 


EM37 


"RESET DID NOT CLEAR BITS OF LKS" 
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863 


001530 


021575 


DH10 


"TEST* ERR PC LKS" 


864 


001532 


022244 


DT10 ;$TESTN,$ERRPC, LKS 


865 


001534 


000000 







866 










867 


001536 


01 7041 


EM40 


"DUAL ADDRESSING ERROR" 


868 


001540 


021621 


DH40 


"TEST* ERR PC GOOD BAD" 


869 


001542 


022254 


DT40 


$T ESTN , SERRPC , SGDADR , SBDCSR 


870 


001544 


000000 







871 










872 


001546 


01 7067 


EM41 


"BIT7 OF LKS NOT SET AFTER RESET2 


873 


001550 


021575 


DH10 


"TEST* ERR PC LKS" 


874 


001552 


022244 


DT10 ;$TESTN,$ERRPC, LKS 


875 


001554 


000000 







876 










877 


001556 


01 7127 


EM42 


"CAN NOT CLEAR BIT7 OF LKS" 


878 


001560 


021575 


DH10 


"TEST* ERR PC LKS" 


879 


001562 


022244 


DT10 ;$TESTN,$ERRPC, LKS 


880 


001564 


000000 







881 










882 


001566 


01 7161 


EM43 


"BIT7 OF LKS DOES NOT SET" 


883 


001570 


021575 


DH10 


"TEST* ERR PC LKS" 


884 


001572 


022244 


DT10 ;$TESTN.$ERRPC, LKS 


885 


001574 


000000 







886 
887 


001576 


01 7212 


EM44 


"RTC INTERRUPT AT PRIORITY 7" 


888 


001600 


021575 


DH10 


"TEST* ERR PC LKS" 


889 


001602 


022244 


DT10 ;$TESTN,$ERRPC. LKS 


890 


001604 


000000 







891 










892 


001606 


01 7246 


EM45 


"RTC INTERRUPTS WHEN DISABLED" 


893 


001610 


021575 


DH10 


"TEST* ERR PC LKS" 


894 


001612 


022244 


DT10 ;STESTN.$ERRPC, LKS 


895 


001614 


000000 







896 










897 


001616 


01 7303 


EM46 


"RTC INTERRUPT DID NOT OCCUR" 


898 


001620 


021575 


DH10 


"TEST* ERR PC LKS" 


899 


001622 


022244 


DT10 


STESTN, SERRPC. LKS 


900 


001624 


000000 







901 










902 


0C162S 


01 7303 


EM47 


"RTC INTERRUPT DID NOT OCCUR" 


903 


001630 


021575 


DH10 


"TEST* ERR PC LKS" 


904 


001632 


022244 


DT10 ;$TESTN,$ERRPC, LKS 


905 


001634 


000000 







906 










907 


001636 


01 7337 


EM50 


"RTC DOUBLE INTERRUPT" 


908 


001640 


021575 


DH10 


"TEST* cRR PC LKS" 


909 


001642 


022244 


DT10 ;$TESTN,$ERRPC, LKS 


910 


001644 


000000 







91 1 










912 


001646 


01 7364 


EM51 


"RESET DID NOT CLEAR RTC INTERRUPT" 


913 


001650 


021575 


DH10 


"TEST* ERR PC LKS" 


914 


001652 


022244 


DT10 ;$TESTN,$ERRPC.LKS 


915 


001654 


000000 







916 










917 


001656 


01 7414 


EM52 


"RTC INTERRUPT DID NOT CLEAR WITH BIT7 


918 


001660 


021575 


DH10 


"TEST* ERR PC LKS" 



.MAIN. MACY1 1 30A( 1052) 19-APR-78 11:44 PAGE 22 



CZDLDC 


P1 1 19-APR-7a 11 :41 


ERROR POINTER 


919 


001662 


022244 


DT10 


920 


001664 


000000 





921 








922 


001666 


01 7471 


EM53 


923 


001670 


021655 


DH53 


924 


001672 


022266 


DT53 


925 


001674 


000000 





926 








927 


001676 


01 7515 


EIVI54 


928 


001700 


021451 


DH1 


929 


001702 


022204 


DTI 


930 


001 704 


000000 





931 








932 


001 706 


01 7653 


EIVI55 


933 


001710 


021451 


DH1 


934 


001712 


022204 


DTI 


935 


001714 


000000 





936 








937 


001716 


01 7553 


EM56 


938 


001720 


021451 


DH1 


939 


001722 


022204 


DT1 


940 


001724 


000000 





941 








942 


001726 


01 761 1 


EM57 


943 


001730 


021451 


DH1 


944 


001 732 


022204 


DTI 


945 


001 734 


000000 





946 








947 


001 736 


01 7653 


EM60 


948 


001 740 


021451 


DH1 


949 


001 742 


022204 


DTI 


950 


001 744 


000000 





951 








952 


001 746 


01 7702 


EM61 


953 


001 750 


021451 


DH1 


954 


001752 


022204 


DTI 


955 


001 754 


000000 





956 








957 


001756 


01 7725 


EM62 


958 


001 760 


021451 


DH1 


959 


001 762 


022204 


DTI 


960 


001 764 


000000 





961 








962 


001766 


01 7773 


EM63 


963 


001 770 


02 1 523 


DH6 


964 


001 772 


022224 


DT6 


965 


001 774 


000000 





966 








967 


001 776 


020017 


EM64 


968 


002000 


021523 


DH6 


969 


002002 


022224 


DT6 


970 


002004 


000000 





971 








972 


002006 


020043 


EM65 


973 


002010 


021523 


DH6 


974 


002012 


022224 


DT6 



SEQ 0022 



;$TESTN,$ERRPC, LKS 



;"TEST# ERR PC LKS CNT1 CNT2« 
;$TESTN,$ERRPC, LKS, FIRST, SECND 



;"XMIT INTERRUPTS WHEN DISABLED" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



;"XMIT DID NOT INTERRUPT" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



;"XMIT INTERRUPT AT PRIORITY 7" 
;"1EST» ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"XMIT INTERRUPTS WITH ENABLE CLEAR" 
;"TEST# ERR PC TCSR" 
;$TESTN, vERRPC.TCSR 



"XMIT DID NOT INTERRUPT" 
"TESTiy ERR PC TCSR* 
$TESTN,$ERRPC,TCSR 



;"XMIT RE-INTERRUPTED" 
;"TEST# ERR PC TCSR" 
;$TESTN.$ERRPC,TCSR 

LOADING TBUF DID NOT CLEAR INTERRUPT" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



; "RCVR ACTIVE NOT SET" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



; "RECEIVER DONE NEVER SET" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"RCVR ACTIVE NOT CLEARED WtTH DONE SET2 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 
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SEQ 0023 



975 


002014 


000000 







976 










977 


002016 


0201 1 1 


EM66 


; "RESET DID NOT CLEAR RCVR DONE" 


978 


002020 


021523 


DH6 


;"TEST# ERR PC RCSR" 


979 


002022 


022224 


DT6 


;$TESTN,$ERRPC.RCSR 


980 


002024 


000000 







981 










982 


002026 


020147 


EM67 


;"RDR ENABLE SET DID NOT CLEAR RCVR DONE" 


983 


002030 


021523 


DH6 


;»TEST# ERR PC RCSR" 


984 


002032 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


985 


002034 


000000 







986 
987 


002036 


020212 


EIVI70 


; "READING RBUF DID NOT CLEAR RCVR DONE" 


988 


002040 


021523 


DH6 


;"TEST# ERR PC RCSR" 


989 


002042 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


990 


002044 


000000 







991 










992 


002046 


020257 


EM71 


;"RCVR INTERRUPTS WITH ENABLE CLEAR" 


993 


002050 


021523 


DH6 


; "TEST# ERR PC RCSR" 


994 


002052 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


995 


002054 


000000 







996 










997 


002056 


020426 


EM72 


;"RCVR DID NOT INTERRUPT" 


998 


002060 


021523 


DH6 


; "TESTIS' ERR PC RCSR" 


999 


002062 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1000 


002064 


000000 







1 001 










1 002 


002066 


020321 


EM73 


;"RCVR INTERRUPTS AT PRIORITY 7" 


1003 


002070 


021523 


DH6 


{"TEST/S* ERR PC RCSR" 


1 004 


002072 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1005 


002074 


000000 







1006 










1007 


002076 


020357 


EM74 


;"RCVR INTERRUPT REQUEST PASSED WITH ENABLE 


1 008 


0021 00 


021523 


DH6 


;"TEST# ERR PC RCSR" 


1009 


002102 


022224 


DT6 


•,$TESTN,$ERRPC,RCSR 


1010 


0021 04 


000000 







101 1 










1012 


0021 06 


020426 


EM75 


;"RCVR DID NOT INTERRUPT" 


1013 


0021 10 


021523 


DH6 


;"lESTff ERR PC RCSR" 


1014 


0021 12 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1015 


0021 14 


000000 







1016 










1017 


0021 16 


020455 


EM76 


; "RECEIVER RE-INTERRUPTED" 


1018 


0021 20 


021523 


DH6 


; "TEST* ERR PC RCSR" 


1019 


002122 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1020 


002124 


000000 







1021 










1022 


002126 


020501 


EM77 


; "READING RBUF DID NOT CLEAR INTERRUPT" 


1023 


002130 


021523 


DH6 


;"TEST# ERR PC RCSR" 


1024 


0021 32 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1025 


002134 


000000 







1026 










1027 


002136 


020546 


EM100 


; "RESET DID NOT CLEAR RCVR INTERRUPT" 


1028 


002140 


021523 


DH6 


;"TEST# ERR PC RCSR" 


1029 


002142 


022224 


DT6 


;$TESTN,$ERRPC,RCSR 


1030 


002144 


000000 
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ERROR POINTER 


1031 










1032 










1 033 


0021 46 


020611 




EM101 


1 034 


0021 50 


021523 




DH6 


1 035 


0021 52 


022224 




DT6 


1 036 


0021 54 


000000 







1 037 








EIVI102 


1 038 


0021 56 


020637 




1039 


0021 60 


021523 




DH6 


1 040 


0021 62 


022224 




DT6 


1041 


0021 64 


000000 







1 042 










1043 


0021 66 


020676 




EM103 


1044 


0021 70 


02 1 722 




DH103 


1 045 


0021 72 


022302 




DT103 


1046 


0021 74 


000000 







1 047 








EMI 04 


1048 


0021 76 


020734 




1049 


002200 


021523 




DH6 


1 050 


002202 


022224 




DT6 


1051 


002204 


000000 







1052 










1053 


002206 


020771 




EM105 


1054 


002210 


021757 




DH105 


1055 


00221 2 


022314 




DT105 


1056 


002214 


000000 







1 057 










1 058 


002216 


021014 




EM106 


1059 


002220 


02 1 757 




DH105 


1060 


002222 


022314 




DT105 


1061 


002224 


000000 







1062 










1 063 


002226 


02 1 052 




EM107 


1064 


002230 


021 523 




DH6 


1065 


002232 


022224 




DT6 


1066 


002234 


000000 







1067 










1068 


002236 


021 104 




EMI 1 


1069 


002240 


022023 




DH1 10 


1070 


002242 


022330 




DTI 10 


1071 


002244 


000000 







1072 










1 073 


002246 


021 134 




EMI 1 1 


1074 


002250 


021 757 




DH105 


1075 


002252 


02231 4 




DT105 


1 076 


002254 


000000 







1 077 










1 078 


002256 


021 174 




EMI 1 2 


1079 


002260 


022067 




DH1 12 


1080 


002262 


022344 




DTI 12 


1081 


002264 


000000 







1082 










1083 


002266 


02121 1 




EM113 


1084 


002270 


021575 




DH10 


1085 


002272 


022244 




DT10 


1086 


002274 


000000 








; '"OR' FLAG DID NOT SET" 
;$TESTN,$ERRPC,RCSR 



"'ERROR' NOT SET WITH 'OR' FLAG" 
"TEST# ERR PC RCSR" 
$TESTN,$ERRPC,RCSR 



; "BREAK DID NOT TRANSMIT ALL ZEROES* 
;"TEST# ERR PC RCSR DATA" 
;$TESTN,$ERRPC,RCSR,$BDDAT 



; "BREAK DID NOT SET FRAMING ERROR" 
; "TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



"DATA COMPARE ERROR" 
"TEST* ERR PC RCSR GOOD 
$TESTN,$ERRPC,RCSR,GD.BD 



"DATA COMPARE ERROR WITH CABLE" 
"TEST* ERR PC RCSR GOOD 
$TESTN,$ERRPC,RCSR,GD.BD 



"TIMEOUT IN EXERCISER TEST" 
"TEST* ERR PC RCSR" 
$TESTN,$ERRPC,RCSR 



;" INCORRECT RECEIVE COUNT 

;"TEST# ERR PC RCSR TRANS RCV" 

; STESTN , SERRPC . RCSR , XMTCNT , RCVCNT 



;"DATA COMPARE ERROR IN EXERCISER" 
;"TEST# ERR PC RCSR GOOD BAD" 
; STESTN, SERRPC, RCSR, GD.BD 



; "TRAP CATCHER" 

;"TEST* ERR PC RCSR OLDPC TRAP ADR" 
; STESTN , SERRPC . RCSR .OLDPC , BDVECT 



;"N0 CLK INTERRUPT IN EXERCISER" 
;"TEST* ERR PC LKS" 
;$TESTN, SERRPC. LKS 
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SEO 0025 



1 087 
1088 
1089 
1090 
1091 
1 092 
1 093 
1 094 
1095 
1096 
1097 
1 098 
1 099 
1 100 
1 101 
1 102 
1 1 03 
1 104 
1 105 
1 106 
1 107 
1 1 08 
1 109 
1110 
1111 
1112 
1113 
1 114 
1115 
1116 
1117 
1118 
1119 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
1 126 
1 127 
1 128 
1 129 
1 130 
1 131 
1 132 
1 133 
1 134 
1 135 

I 136 

II 37 
1138 
1 139 
1140 
1141 
1 142 



002276 
002300 
002302 
002304 

002306 
002310 
002312 
002314 

002316 
002320 
002322 
002324 

002326 
002330 
002332 
002334 

002336 
002340 
002342 
002344 



002346 
002350 
002352 
002354 
002356 
002360 
002362 
002364 



002366 
00237C 
002372 
002374 
002376 
002400 
002402 
002404 



002406 
002410 
002412 

002414 
002454 



021247 
021523 
022224 
000000 

021306 
021523 
022224 
000000 

021345 
021523 
022224 
000000 

021404 
021523 
022224 
000000 

000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



177560 
177562 
177564 
177566 
000060 
000062 
000064 
000066 



177546 
000100 
000102 

000020 
000020 





EM114 




"'ERROR' NOT SET WITH 'FR' FLAG" 




DH6 




"TEST* ERR PC RCSR" 




DT6 





STESTN, SERRPC, RCSR 




EM1 15 


;RCV ACTVIE NOT CLEAR WITH INIT 




DH6 




"TEST* ERR PC RCSR" 




DT6 





STESTN, SERRPC, RCSR 




EMI 16 




RCV ACTIVE WITHOUT "START" BIT 




DH6 




"TEST* ERR PC RCSR" 




DT6 





STESTN, SERRPC, RCSR 




EMI 17 




RDR ENABLE NOT CLEAR WITH RCV ACTIVE 




DH6 




"TEST* ERR PC RCSR" 




DT6 





STESTN, SERRPC, RCSR 


ctstfl: 


.WORD 





CONSLE UNDER TEST FLAG 


TMP1 : 


.WORD 





TEMP LOCATION FOR TABLE OFFSETS 


TMP2: 


.WORD 





TEMP LOCATION FOR DEVICE COUNT 


TMP3: 


.WORD 





LOCATION FOR DEVICE MAP BIT TEST MASK 


•.REGISTER AND 


SECTOR ADDRESSES FOR THE Dt.-11W UNDER TEST 


RCSR: 


.WORD 







RBUF: 


.WORD 







TCSR: 


.WORD 







TBUF: 


.WORD 







RVECT: 


.WORD 







RPSW: 


.WORD 







TVECT: 


.WORD 







TPSW: 


.WORD 







;CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-11W 


CRCSR: 


177560 


; ADDRESS OF RECEIVER COMMAND/STATUS REGISTER 


CRBUF: 


177562 




ADDRESS OF RECEIVER BUFFER 


CTCSR: 


177564 




ADDRESS OF TRANSMITTER COMMAND/STATUS REGISTER 


CTBUF: 


177566 




ADDRESS OF TRANSMITTER BUFFER 


CRVECT: 


60 




RECEIVER INTERRUPT VECTOR 


CRPSW: 


62 






CTVECT: 


64 


♦.TRANSMITTER INTERRUPT VECTOR 


CTPSW: 


66 






-.REAL TIME CLOCK REGISTER AND VECTOR ADDRESSES 


LKS: 


.WORD 


177546 




RTCVT: 


.WORD 


100 




RTCPSW: 


.WORD 


102 




ADRTBL: 


.BLKW 


20 




VCTTBL: 


• BLKW 


20 
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SEQ 0026 



I 143 

II 44 

1 145 
1 146 

1 1 47 
1 1 48 
1 149 
1 1 50 
1151 
1 152 
1 153 
1 154 
1 1 55 
1 156 
1 157 
1 158 
1 159 
1 160 
1 161 
1 162 
1 163 
1 164 
1 165 
1 1 66 
1 167 
1 1 68 
1 1 69 
1 1 70 
1 171 
1 1 72 
1 173 
1 1 74 
1 1 75 
1 1 76 
1 1 77 
1 1 78 
1 1 79 
1 1 80 
1 131 
1 182 
1 183 
1 1 84 
1 1 85 
1 1 85 
1 1 87 
1 1 88 
1 1 89 
1 1 90 
1191 
1 1 92 
1 1 93 
1 1 94 
1 195 
1 1 96 
1 197 
1 198 



■.SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 



002514 


01 2702 


002414 




002520 


01 3700 


0011 42 




002524 


01 0001 






002526 




UUw 1 / U 




002532 


01 0022 






002534 


062700 


00001 




002540 


02 000 1 






002542 


00 3773 






002544 


000207 






002546 


005037 


001070 




002552 


005037 


001 066 




002556 


00 5037 


001 072 




002562 


00 5037 


002336 




002566 


00 5037 


001 076 




002572 


005037 


001 100 




002576 


005737 


001 1 12 




002602 


00 1 003 






002604 


012737 


000400 


001112 


00261 2 


01 2737 


000006 


AA AA f\A 


002620 


01 2737 




A An A nR 

uuuu UD 


002526 


01 2706 


00 1 000 




002632 


005026 






002634 


02 2706 


001 040 




002640 


001374 






002542 


1 2706 


001 000 




002646 




A i O A A A 

U 1 juuu 


AA AA nn 
U U u u ^u 


002654 


01 2737 


000340 


000022 


002662 


01 2737 


1 2304 


000030 


002670 


01 2737 


000340 


A A A A 1 

U UUU J<ii 


002676 




A 1 yi 7 A 

U 1 M / Um 


AAAA Q/l 


002704 


01 2737 


000340 


AAAA Q K 
UUUU JD 


C02 7 1 2 


01 2737 


1 2522 


A A A A O ^ 
U U U U ^ *4 


027 20 




000340 


000026 


002726 


01 3737 


012132 


012124 


002734 


005037 


001060 




002740 


1 1 2737 


000001 


001015 


002746 


01 2737 


002746 


001006 


002754 


01 2737 


002754 


001 01 


002762 


01 3746 


000004 




002766 


01 2737 


003022 


000004 


002774 


01 2737 


177570 


001040 


003002 


01 2737 


177570 


0010<2 


003010 


022777 


177777 


176022 


003016 


001012 







DEVADR: MOV 
MOV 
MOV- 
ADD 

1$: MOV 
ADD 
CMP 
BLE 
RTS 



CLR 
CLR 
CLR 
CLR 
CLR 
CLR 
TST 
BNE 
MOV 
MOV 
MOV 



#ADRTBL,R2 

SBASE.RO 

RO.RI 

#170, R1 

RO, (R2)+ 

#10, RO 

RO.RI 

1$ 

PC 



SFATAL 

SMSGTYP 

$TESTN 

CTSTFL 

SDEVCT 

$UNIT 

SUSWR 

1$ 

#400, SUSWR 

#6,@#4 

#3,@#6 



.•POINT R2 TO THE DEVICE ADDRESS TABLE 
;LOAD BASE DEVICE ADDRESS IN RO 

•POINT Ri TO LAST DEVICE ADDRESS 

;MOVE DEVICE ADDRESS TO TABLE 

; POINT RO TO NEXT DEVICE ADDRESS 

; FINISHED GENERATING TABLE? 

;BR, IF LAST DEVICE ADDRESS NOT LOADED 



-.CLEAR ERROR NO. 
;CLEAR MESSAGE TYPE 
;CLEAR TEST NO. 

; CLEAR CONSOLE UNDER TEST FLAG 
;CLEAR DEVICE COUNT 
;CLEAR UNIT NUMBER 
; IS SUSWR LOADED? 
;BR IF YES 

;ELSE. DEFAULT TO $USWR=400 

; INITIALIZE TIMEOUT VECTORS TO TRAP 

; CATCHER ROUTINE 



■SBTTL INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 



MOV 
CLR 
CMP 
BNE 
MOV 

; ; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MDVB 
MOV 
MOV 



#$CMTAG, R6 
(R6) + 

#SWR,R6 ;;DONE? 
.-6 

#1000, SP 
FEW VECTORS 
#$SCOPE .@#IOTVEC 
#340,(ai#I0TVEC+2 
#$ERROR,@#EMTVEC 
#340,P#EMTVEC+2 
#$TRAP,§>#TRAPVEC 



;;FIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 

; ; LOOP BACK IF NO 

SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

;TRAP VECTOR FOR TRAP CALLS 



#340. @#TRAPVEC+2; LEVEL 7 



#$PWRDN,@#PWRVEC 
#340,@#PWRVEC+2 ; 
SENDCT.SEOPCT ; 
SESCAPE ; 
#1 ,$ERMAX ; 
#..$LPADR ; 
#..$LPERR ; 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT 
; -.EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 



POWER FAILURE VECTOR 
LEVEL 7 

SETUP END-OF-PROGRAM COUNTER 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
IS 



MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



@#ERRVEC,-(SP) 

#64$,@#ERRVEC 

#DSWR,SWR 

#DDISP, DISPLAY 

#-1 ,@SWR 

66$ 



;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 

; SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 

BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT « -1 



.MAIN, 


MACY1 1 


30A( 1052 


19-A 


C2DLDC 


PI 1 


9-APR-7B 


11:41 


1 1 99 


003020 


000403 




1 200 


003022 


01 2716 


003030 


12C1 


003026 


000002 




1 202 


003030 


01 2737 


0001 76 


1203 


003036 


01 2737 


000174 


1 204 


003044 


01 2637 


000004 


1 205 








1 206 


003050 


005037 


001074 


1 207 


003054 


1 32737 


000200 


1208 


003062 


001403 




1 209 


003064 


01 2737 


001 1 10 


1210 


003072 






121 1 


003072 


032777 


000020 


1212 


0031 00 


001404 




1213 


0031 02 


005237 


002336 


1214 


0031 06 


0001 37 


004056 


1215 


0031 12 


132737 


000001 


1216 


0031 20 


001404 




1217 


0031 22 


132737 


000200 


1218 


0031 30 


001056 




1219 


0031 32 


032777 


000040 


1 220 


0031 40 


001052 




1 221 








1222 


0031 42 


004737 


002514 


1 223 


0031 46 


005037 


002342 


1 224 


0031 52 


005037 


001 144 


1 225 


0031 56 


01 3703 


000004 


1226 


0031 62 


01 2737 


003212 


1 227 


0031 70 


01 3700 


001 142 


1 228 


0031 74 


062700 


000160 


1 229 


003200 


00571 




1 230 


003202 


005237 


001 144 


1 231 


003206 


005237 


002342 


1232 


003212 


01 2706 


001000 


1233 


003216 


006337 


001 144 


1234 


003222 


162700 


000010 


1235 


003226 


023700 


001 142 


1236 


003232 


003762 




1237 


003234 


01 3700 


002366 


1238 


003240 


01 2737 


003260 


1239 


003246 


00571 




1 240 


003250 


005237 


001144 


1241 


003254 


005237 


002342 


1242 


003260 


01 0337 


000004 


1243 


003264 


000415 




1 244 








1245 


003266 


005037 


002342 


1246 


003272 


01 3702 


001 144 


1247 


003276 


005702 




1 248 


003300 


100002 




1 249 


003302 


005237 


002342 


1250 


003306 


006302 




1251 


003310 


001401 




1252 


00331 2 


000771 




1253 


003314 


004737 


002514 


1254 









1 1 :44 PAGE 27 

INITIALIZE THE COMMON TAGS 



SEQ 0027 



001040 
001042 



001 1 07 
001040 
175740 

001 1 06 
001 107 
175700 



64$: 
65$: 
66$: 



APTSZD: 
TSTDVM: 



MOV 
RTI 
MOV 
MOV 
MOV 

CLR 
BITB 
BEO 
MOV 

BIT 

BEO 

INC 

JMP 

BITB 

BEO 

BITB 

BNE 

BIT 

BNE 

JSR 
CLR 
CLR 
MOV 
MOV 
MOV 
ADD 
TST 
INC 
INC 
MOV 
ASL 
SUB 
CMP 
BLE 
MOV 
MOV 
TST 
INC 
INC 
MOV 
BR 

CLR 

MOV 

TST 

BPL 

INC 

ASL 

BEO 

BR 

JSR 



65$ 

#65$, (SP) 

#SWREG,SWR 
#DISPREG. DISPLAY 
(5P)+,@#ERRVEC 

$PASS 

#APTSIZE,$ENVM 
67$ 

#$SWREG.SWR 

#BIT4.@SWR 
INIT 
CTSTFL 
ID 

#BITO,$ENV 
MANL 

#BIT7.$ENVM 
APTSZD 
#BIT5,@SWR 
APTSZD 

PC, DEVADR 

TMP2 

SDEVM 

@#4,R3 

#4$,@#4 

SBASE. RO 

#160. RO 

(RO) 

SDEVM 

TMP2 

#1000, SP 
SDEVM 
#10, RO 
SBASE.RO 
3$ 

CRCSR.RO 

#5$,@#4 

(RO) 

SDEVM 

TMP2 

R3,@#4 

VCTADR 

TMP2 

SDEVM, R2 

R2 
1$ 

TMP2 
R2 

DVADT 
TSTDVM 
PC, DEVADR 



,- BRANCH IF NO TIMEOUT 
;SET UP FOR TRAP RETURN 

-.POINT TO SOFTWARE SWR 

; RESTORE ERROR VECTOR 

;CLEAR PASS COUNT 

;TEST USER SIZE UNDER APT 

;YES.USE NON-APT SWITCH 

; NO, USE APT SWITCH REGISTER 

TEST CLOCK ONLY? 
BR IF NOT 

ELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS 

AND JUMP TO TYPE PROGRAM ID 
CHECK IF ON APT 
BR IF NOT APT 
DID APT SIZE 
BR, IF APT SIZED 
WAS "SDEVM" MANUALLY SET? 
IF YES, SKIP SELF-SIZING 

GENERATE DEVICE ADDRESS TABLE 

CLR TEMP LOCATION TO KEEP DEVICE COUNT 

CLEAR DEVICE MAP 

SAVE TIMEOUT VECTOR 

SET TIMEOUT POINTER 

LOAD BASE ADDRESS 

POINT RO TO UNIT #15 ( UN I T#0=CONSOLE ) 
CHECK FOR DEVICE EXISTANCE 
INDICATE DEVICE EXISTANCE IN DEVICE MAP 
INCREMENT DEVICE COUNT 

; RESET STACK POINTER 
ADJUST DEVICE MAP FOR NEXT UNIT CHECK 
POINT RO TO NEXT DEVICE NUMBER 
FINISHED SIZING? 

BR. IF BASE ADDRESS HAS NOT BEEN CHECKED 

LOAD CONSOLE DEVICE ADDRESS 

SET UP TIMEOUT POINTER 

TEST FOR CONSOLE EXISTANCE 

INDICATE CONSOLE EXISTANCE IN DEVICE MAP 

INCREMENT DEVICE COUNT 

RESTORE TIMEOUT VECTOR 

BR TO GENERATE VECTOR ADDRESS TABLE 

CLEAR TEMP LOCATION TO KEEP DEVICE CNT 

MOVE DEVICE MAP TO R2 

TEST MSB OF DEVICE MAP 

BR. IF MSB IS ZERO 

INCREMENT DEVICE COUNT , IF MSB=1 

SHIFT NEXT BIT INTO MSB POSITION 

BR, IF NO OTHER BITS ARE SET IN SDEVM 

CONTINUE CHECKING SDEVM. IF MORE BITS SET 

GENERATE DEVICE ADDRESS TABLE 



.MAIN. MACY11 30A{1052) 19-APR-78 11:44 PAGE 28 

CZDLDC.PII 19-APR-78 11:41 INITIALIZE THE COMMON TAGS 



SEQ 0020 



1255 








1256 








1 257 


003320 


01 2702 


002454 


1258 


003324 


1 1 3700 


001 136 


1259 


003330 


042700 


177400 


1260 


003334 


01 0001 




1261 


003336 


062701 


000170 


1262 


003342 


01 0022 




1263 


003344 


062700 


000010 


1264 


003350 


020001 




1265 


003352 


003773 




1266 








1267 








1268 








1269 


003354 


01 3700 


002342 


1270 


003360 


005001 




1271 


003362 


000300 




1272 


003364 


006300 




1273 


003366 


006300 




1274 


003370 


006300 




1275 


003372 


106101 




1276 


003374 


006300 




1 277 


003376 


106101 




1278 


003400 


006300 




1 279 


003402 


106101 




1 280 


003404 


062701 


000060 


1 281 


003410 


000301 




1282 


003412 


032701 


000020 


1233 


003416 


001 764 




1284 


003420 


01 0137 


022154 


1285 








1286 








1287 


003424 


052737 


000002 


1288 


003432 


005037 


002340 


^289 


003436 


032737 


000001 


1 290 


C03444 


001001 




1291 


003446 


00041 4 




1292 


003450 


005237 


002336 


1293 


003454 


01 2700 


002366 


1 294 


00346C 


01 2701 


002346 


1295 


003464 


01 2021 




1296 


003466 


022701 


002364 


1297 


003472 


002374 




1 298 


003474 


000137 


003622 


1 299 








1300 








1301 


003500 


033737 


002344 


1302 


003506 


001010 




1303 


003510 


006337 


002344 


1304 


003514 


062737 


000002 


1305 


003522 


005237 


001 100 


1306 


003526 


000764 




1307 








1308 


003530 


005237 


001100 


1309 


003534 


006337 


002344 


1310 


003540 


01 3702 


002340 



jGENERATE VECTOR ADDRESS TABLE 



MOV 


#VCTTBL.R2 


MOVB 


@#$VECT1 ,R0 


SIC 


#177400, RO 


MOV 


R0,,?1 


ADD 


#170, R1 


MOV 


RO, (R2) + 


ADD 


#10, RO 


CMP 


R0,R1 


BLE 


1$ 



GET LOCATION OF VECTOR TABLE 

COPY BASE VECTOR 

CLEAR BYTE SIGN EXTENSION 

POINT R1 TO LAST DEVICE VECTOR 
PUT VECTOR ADDRESS IN TABLE 
POINT RO TO NEXT VECTOR ADDRESS 
FINISHED GENERATING VECTOR TABLE? 
BR, IF LAST VECTOR IS NOT LOADED 



;MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE 



002344 BEGIN: 



MOV 

CLR 

SWAB 

ASL 

ASL 

ASL 

ROLE 

ASL 

ROLB 

ASL 

ROLB 

ADD 

SWAB 

BIT 

BEQ 

MOV 



BIS 

CLR 

BIT 

BNE 

BR 

INC 

MOV 

MOV 

MOV 

CMP 

BGE 

JMP 



TMP2,R0 
R1 



RO 
RO 
R1 
RO 
R1 
RO 
R1 

#60, R1 
R1 

#BIT4,R1 
SHIFT 
R1 ,M2A 



#BIT1 ,TMP3 
TMPI 

#BITO,$DEVM 

TCONS 

TSTDEV 

CTSTFL 

#CRCSR, RO 

#RCSR,R1 

(R0)+, (R1 )+ 

#TPSW,R1 

1$ 

TST1 



COPY DEVICE COUNT INTO RO 

CLEAR AUXILARY REGISTER 

PUT DEVICE COUNT IN UPPER BYTE OF RO 

MOVE MSB OF COUNT INTO 

MSB OF RO 

PUT MSB OF COUNT INTO CARRY 
MOVE MSB OF COUNT INTO R1 
MOVE NEXT BIT TO CARRY 
MOVE INTO R1 
MOVE LAST BIT OF DIGIT 
INTO R1 

CONVERT DIGIT TO ASCII 

MOVE DIGIT TO UPPER BYTE 

HAVE BOTH DIGITS BEEN MOVED TO R1? 

BR, IF NOT 

MOVE DEVICE COUNT TO OUTPUT MESSAGE 



SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT CONSOL 

CLEAR LOCATION TO STORE TABLE OFFSETS 

IS CONSOLE TO BE TESTED? 

BR. IF CONSOLE IS TO BE TESTED 

BR, TO TEST OTHER DEVICES 

INDICATE CONSOLE UNDER TEST 

SET UP CONSOLE DEVICE ADDRESSES 

POINT R1 TO UUT ADDRESS TABLE 

TRANSFER CONSOLE ADDRESSES 

FINISHED TRANSFER? 

BR, IF NOT 

GO TEST CONSOLE INTERFACE 



jPREPARE ADDRESSES AND VECTORS FOR UUT 
001144 TSTDEV 



BIT 


TMP3, SDEVM 


;CHECK TO SEE IF DEVICE IS TO BE TESTED 


BNE 


SETADR 


; BR, IF YES 


ASL 


TMP3 


; SHI FT MASK TO CHECK NEXT SDEVM BIT 


ADD 


#2,TMP1 


; INCREMENT TABLE INDEX 


INC 


$UNIT 


; INCREMENT UNIT NUMBER 


BR 


TSTDEV 


;G0 TEST NEXT BIT OF DEVICE MAP 


INC 


SUNIT 


;UPDATE UNIT NUMBER 


ASL 


TMP3 


;UPDATE DEVICE MAP TEST MASK 


MOV 


TMPI ,R2 


;MOVE TABLE OFFSET TO R2 



.MAIN. 


MACY1 1 


30A( 1052) 


19-APR-78 11 


:44 


PAGE 29 






CZDLDC 


PI 1 


19-APR-78 


1 1 :41 


INITIALIZE THE 


COMMON TAGS 




131 1 


003544 


062737 


000002 002340 




ADD 


#2, TMPI 


jUPDATE TABLE OFFSET FOR NEXT DEVICE 


1312 


003552 


01 6200 


002414 




MOV 


ADRTBL(R2) ,R0 


;PUT UUT ADDRESS INTO RO 


1313 


003556 


01 2701 


002346 




MOV 


#RCSR,R1 


; POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 


1314 


003562 


01 0021 




ADR: 


MOV 


RO, (R1 ) + 


; TRANSFER UUT ADDRESS 


1315 


003564 


062700 


000002 




ADD 


#2,R0 


; POINT TO NEXT UUT REGISTER 


1 316 


003570 


030027 


000006 




BIT 


R0,#6 


;FINISHEu TRANSFER? 


131 7 


003574 


001372 






BNE 


ADR 


;BR, IF NOT 


1318 
1319 


003576 


01 6200 


002454 




MOV 


VCTTBL(R2) ,R0 


;PUT UUT VECTOR INTO RO 


1320 


003602 


01 0021 




VECT 


: MOV 


RO, (R1 )+ 


; TRANSFER UUT VECTORS TO ACTIVE TABLE AREA 


1321 


003604 


062700 


000002 




ADD 


#2,R0 


; POINT TO NEXT VECTOR 


1322 


003610 


030027 


000006 




BIT 


R0,#6 


; FINISHED TRANSFER? 


1323 


003614 


001372 






BNE 


VECT 


;BR, IF NOT 


1324 


003616 


000137 


003622 




UMP 


TST1 


;G0 TEST DEVICE 


1325 
















1326 

















SEQ 0029 
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C2DLDC.P11 19-APR-7a 11:41 INITIALIZE THE COMMON TAGS 



SEQ 0030 



1327 




















1 328 




















1 329 










• •**♦**«****♦♦ 








1330 










;*TEST 


1 


TEST ABILITY 


TO 


REFERENCE TCSR 


1331 










; ; *♦** 






1332 


003622 


000004 






TSTl : 


SCOPE 








1333 


003624 


01 3703 


000004 






MOV 


P#4,R3 




;SAVE TIMEOUT VECTOR 


1334 


003630 


01 2737 


003644 


000004 




MOV 


#1$.@#4 




;SET UP TIMEOUT VECTOR 


1335 


003636 


005777 


176510 






TST 


@TCSR 




; REFERENCE THE XMIT COMMAND/STATUS REG. 


1336 


003642 


000412 








BR 


4$ 




; GO TO END OF TEST 


1337 




















1338 


003644 


022626 






1$: 


CMP 


(SP)+,(SP)+ 




JRESTORE SP AFTER TIMEOUT 


1339 


003546 


005737 


002336 






TST 


CTSTFL 




; CHECK IF DEVICE IS CONSOLE 


1340 


003652 


001002 








BNE 


2$ 




; IF YES, SKIP ERROR TYPEOUT 


1341 


003654 


104001 








ERROR 


1 




; REPORT ERROR TO APT a TTY 


1342 


003656 


000404 








BR 


4$ 




;BR TO END OF TEST 


1343 


003660 








2$: 










1344 


003660 


004737 


013170 






USR 


PC.$ATY4 




;;DNLY REPORT A FATAL ERROR 


1345 


003664 


000001 








1 






;;THE ERROR NUMBER (FROM APT LIST) 


1346 


003666 


000000 






3$: 


HALT 








1347 


003670 


01 0337 


000004 




4$: 


MOV 


R3,@#4 




; RESTORE TIMEOUT VECTOR 


1348 




















1349 




















1350 




















1351 
















1352 










;*TEST 


2 


TEST ABILITY 


TO 


REFERENCE TBUF 


1353 


















1354 


003674 


000004 






TST2: 


SCOPE 








1355 


003676 


01 3703 


000004 






MOV 


®#4,R3 




;SAVE TIMEOUT VECTOR 


1356 


003702 


01 2737 


003716 


000004 




MOV 


)S'1$.@#4 




;SET UP TIMEOUT VECTOR 


1357 


003710 


005777 


176440 






TST 


@TBUF 




; REFERENCE THE XMIT BUFFER 


1 353 


003714 


000412 








BR 


4$ 




;G0 TO END OF TEST 


1359 




















1360 


003716 


022626 






1$: 


CMP 


(SP)+, (SP)+ 




;RESTORE SP AFTER TIMEOUT 


1361 


003720 


005737 


002336 






TST 


CTSTFL 




;CHECK IF DEVICE IS CONSOLE 


1362 


003724 


001002 








BNE 


2$ 




; IF YES, SKIP ERROR TYPEOUT 


1 363 


003726 


104002 








ERROR 


2 




JREPORT ERROR TO APT & TTY 


1364 


003730 


000404 








BR 


4$ 




;BR TO END OF TEST 


1365 


003732 








2$: 










1366 


003732 


004737 


013170 






JSR 


PC,$ATY4 




; ;ONLY REPORT A FATAL ERROR 


1367 


003736 


000002 








2 






;;THE ERROR NUMBER (FROM APT LIST) 


1368 


003740 


000000 






3$: 


HALT 








1369 


003742 


010337 


000004 




4$: 


MOV 


R3,©#4 




; RESTORE TIMEOUT VECTOR 



.MAIN. 


MACY1 1 


30A(1052) 19-APR-78 1 


C2DLDC 


PI 1 


19-APR-78 


1 1 :41 


1 370 








1371 








1372 








1373 








1374 








1375 


003746 


000004 




1376 


003750 


005077 


176400 


1377 


003754 


105777 


176372 


1378 


003760 


100016 




1379 








1380 








1381 


003762 


005077 


176366 


1382 


003766 


105777 


176360 


1383 


003772 


10001 1 




1384 








1385 


003774 


005737 


002336 


1386 


004000 


001002 




1387 


004002 


104003 




1388 


004004 


000404 




1 389 


004006 






1390 


004006 


004737 


013170 


1 391 


004012 


000003 




1392 


00401 4 


000000 




1393 


004016 


005000 




1394 


004020 


105777 


176326 


1395 


004024 


100414 




1396 


004026 


005200 




1397 


004030 


001373 




1398 








1399 


004032 


005737 


002336 


1400 


004036 


001002 




1401 


004040 


104004 




1402 


004042 


000405 




1403 


004044 






1404 


004044 


004737 


013170 


1405 


004050 


000004 




1406 


004052 


000000 




1407 


004054 


000424 




1 408 








1409 








1410 


004056 


023737 


000042 000046 


141 1 


004064 


001412 




1412 


004066 


005737 


001074 


1413 


004072 


001007 




1414 


004074 


005737 


001076 


1415 


0041 00 


001004 




1416 


0041 02 


104401 




1417 


004104 


022140 




1418 


004106 


104401 




1419 


0041 10 


0221 52 




1420 


0041 12 


032777 


000020 174720 


1421 


004120 


001402 




1422 


004122 


000137 


005056 



PAGE 31 

TEST ABILITY TO REFERENCE 



SEQ 0031 



♦TEST 3 

TST3: SCOPE 
CLR 
TSTB 
BPL 



2$: 
3$: 
4$: 



******** 

TEST THAT TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 
******* 



@TBUF 
fTCSR 
3$ 



CLR 


@TBUF 


TSTB 


PTCSR 


BPL 


3$ 


TST 


CTSTFL 


BNE 


1$ 


ERROR 


3 


BR 


3$ 


USR 


PC,$ATY4 


3 




HALT 




CLR 


RO 


TSTB 


PTCSR 


BMI 


ID 


INC 


RO 


BNE 


4$ 


TST 


CTSTFL 


BNE 


5$ 


ERROR 


4 


BR 


ID 


USR 


PC,$ATY4 


4 




HALT 




BR 


TST4 



CMP 


@#42,@#46 


BEO 


6$ 


TST 


$PASS 


BNE 


6$ 


TST 


SDEVCT 


BNE 


6$ 


TYPE 




Ml 




TYPE 




M2 




BIT 


#BIT4,®SWR 


BEQ 


TST4 


UMP 


TCLOCK 



; LOAD XBUF 
; CHECK DONE 
;BR IF CLEAR 

;FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 

; FIRST TEST TO FAIL 
;FILL DOUBLE BUFFER 
; CHECK DONE 
;BR IF CLEAR 

; CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 
:DONE NOT CLEARED WITH TBUF FULL 
;BR TO END OF TEST 

;;ONLY REPORT A FATAL ERROR 

; ; THE ERROR NUMBER (FROM APT LIST) 

;TCSR "DONE" NOT CLEARED WITH TBUF FULL 

;CLEAR TIMER 

JCHECK FOR XMIT DONE 

; IF DONE SETS, BR TO END OF TEST 

; INCREMENT TIMER 

;BR IF TIMER NOT DONE 

; CHECK IF DEVICE IS CONSOLE 

;TCSR "DONE" DOES NOT SET 
;BR TO END OF TEST 

; :DNLY REPORT A FATAL ERROR 

; ; THE ERROR NUMBER ( FROM APT LIST) 

;BR TO NEXT TEST . AND SKIP THE TYPEOUT THAT FOLLOWS 

; BECAUSE OF THIS FAILURE 



;UNDER ACT11? 

; IF YES, SKIP IDENT. TYPEOUT 

: IS THIS THE FIRST PASS? 

; IF NOT BR TO NEXT TEST & SKIP THE 

; IS THIS THE FIRST SUBPASS? 

; IF NOT, BRTO NEXT TEST 

;TYPE PROGRAM INOENTI FICATION 

; TYPE NUMBER OF DEVICES UNDER TEST 

CLOCK TEST ONLY? 
BR IF NOT 

ELSE, JUMP TO TEST CLOCK 



IDENTIFICATION TYPEOU 
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T3 TEST THAT TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 



SEQ 0032 



1 423 














1 424 














1 425 








; ;*****♦♦**♦**********♦***♦**** 




1 426 








;*TEST 4 


TEST THAT TCSR 


"DONE" SETS WITH RESET 


1 427 








; ;4i*4>«it>*4<*4i*4>4i4i**4>*«>t<4<4ii|iit>>ti4i>ii4>i*<t> 




1428 


004 1 26 


000004 




TST4: SCOPE 






1 429 


004 1 30 


005077 


1 76220 


CLR 


@TBUF 


; LOAD TRANSMIT BUFFER 








1 76212 


1$: TSTB 


©TCSR 


,WAil rUK UUNC. 


1 431 


0041 40 


1 00375 




BPL 


1 $ 






n Ail i A'J 


005077 


1 TROCSR 


CLR 


@TBUF 


• 1 HAH ccpnwn miPccD 
, LUAU SCUUiNU DUrrcK 


1 433 


0041 46 


00 0240 




NOP 






1 434 


004 1 50 


000005 




RESET 




'CLEAR DONE WITH RESET 


1 435 


0041 52 


1 05777 


1 761 74 


TSTB 


©TCSR 


; CHECK FOR DONE SET 


1 436 


0041 56 


1 00401 




BMI 


TST5 


'BR TO NEXT TEST IF DONE SET 


1 437 














1 438 


0041 60 


1 04005 




ERROR 


5 


;TCSR "DONE" DOES NOT SET WITH RESET 


1 439 














1 440 














1441 














1442 












^^^^!^■t^*^^^^^^^^^^^^^^^n^^*iH^^H,i^■^^■ii^^^^^^,4■t^^^in^■^^^^i^ 


1443 








•^TEST 5 


TEST ABILITY TO 


ACCESS RCSR 


1444 














1445 


004162 


000004 




TST5: SCOPE 






1446 


004164 


01 3703 


000004 


MOV 


@#4,R3 


;SAVE TIMEOUT VECTOR 


1447 


0041 70 


01 2737 


004204 000004 


MOV 


#1$,®#4 


;SET UP TIMEOUT VECTOR 


1448 


0041 76 


005777 


176144 


TST 


©RCSR 


; ACCESS RCSR 


1449 


004202 


000402 




BR 


2$ 


;BR TO END OF TEST 


1450 














1451 


004204 


022626 




1 $ : CMP 


(SP) + , (SP)-f 


'.RESTORE SP AFTER TIMEOUT 


1452 


004206 


104006 




ERROR 


6 


;CAN NOT ACCESS RCSR 


1453 


004210 


010337 


000004 


2$ : MOV 


R3,0#4 


; RESTORE TIMEOUT VECTOR 
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TEST ABILITY TO ACCESS RCSR 



SEQ 0033 



1454 








1455 








1456 








1457 








1458 








1459 


004214 


000004 




1460 


004216 


01 3703 


000004 


1461 


004222 


012737 


004236 


1462 


004230 


005777 


176114 


1463 


004234 


000402 




1464 








1465 


004236 


022626 




1466 


004240 


104007 




1467 


004242 


010337 


000004 


1468 








1469 








1470 








1471 









;*TEST 6 



TEST ABILITY TO ACCESS 



SCOPE 






MOV 


@#4.R3 


;SAVE TIMEOUT VECTOR 


MOV 


<yi$.@#4 


;SET UP TIMEOUT VECTOR 


TST 


@RBUF 


; ACCESS RBUF 


BR 


2$ 


;BR TO END OF TEST 


CMP 


(SP)+. (SP)+ 


; RESTORE SP AFTER TIMEOUT 


ERROR 


7 


;CAN NOT ACCESS RBUF 


MOV 


R3,@#4 


{RESTORE TIMEOUT VECTOR 



.MAIN. MACY11 30A(1052) 19-APR-7B 11:44 PAGE 34 

CZDLDC.P11 19-APR-78 1i:41 T6 TEST ABILITY TO ACCESS RBUF 



SEQ 0034 



1472 








1473 








1474 








1475 








1476 








1477 


004246 


000004 




1478 


004250 


032777 


000400 


1479 


004256 


001545 




1480 


004260 


000005 




1481 


004262 


032777 


000001 


1482 


004270 


00141 1 




1483 


004272 


005737 


002336 


1484 


004276 


001002 




1485 


004300 


10401 1 




1486 


004302 


000404 




1487 


004304 






1488 


004304 


004737 


013170 


1489 


004310 


00001 1 




1490 


004312 


000000 




1491 








1492 


004314 


052777 


000001 


1493 


004322 


032777 


000001 


1494 


004330 


001001 




1495 








1496 


004332 


104012 




1497 








1498 


004334 


042777 


000001 


1499 


004342 


032777 


000001 


1500 


004350 


00141 1 




1501 


004352 


005737 


002336 


1502 


004356 


001002 




1503 


C04360 


104013 




1504 


004362 


000404 




1505 


004364 






1506 


004364 


004737 


013170 


1507 


004370 


000013 




1508 


004372 


000000 




1509 








1510 


004374 


052777 


000001 


151 1 


004402 


000005 




1512 


004404 


032777 


000001 


1513 


004412 


001467 




1514 


004414 


042777 


000001 


1515 


004422 


104014 





♦TEST 7 

. !|i 4< « « i«< « >4c « 4< 

TST7: 



************************ 
TEST THAT BITO(BREAK BIT) 



CAN BE SET i 



4, ^ « « >)< « * 4> * « 

CLEARED & RESET 

>«: >j, * * ^ « « ^ tjt » 



176030 
176022 



176010 
176002 



175750 
175740 
175730 



6$: 
7$: 



SCOPE 






BIT 


#BIT8 ,®SWR 


;IS BREAK FUNCTION ENABLED? 


BEO 


TST11 ' 


;BR TO NEXT TEST, IF NOT 


RESET 




; CLEAR EVERYTHING 


BIT 


#BIT0,@TCSR 


; CHECK BITO OF TCSR CLEAR 


BEO 


3$ 


;BR IF CLEAR 


TST 


CTSTFL 




BNE 


1$ 




ERROR 


1 1 


;BITO WAS NOT CLEAR AFTER RESET 


BR 


3$ 




JSR 


PC,$ATY4 


;;ONLY REPORT A FATAL ERROR 


1 1 




;;THE ERROR NUMBER (FROM APT 


HALT 






BIS 


#BIT0 ,@TCSK 


;SET BITO IN TCSR 


BIT 


^BITO.fTCSR 


;TEST BITO OF TCSR 


BNE 


4$ 


;BR IF SET 


ERROR 


12 


;BIT0 OF TCSR WILL NOT SET 


BIC 


#BITO,@TCSR 


jCLEAR BITO OF TCSR 


BIT 


#BITO ,@TCSR 


•TCCT DTTA nC TPCD 
;iC.3l DlIU Or 1 l»3K 


BEO 


7$ 




TST 


CTSTFL 




BNE 


5$ 




ERROR 


13 


;BITO OF TCSR WILL NOT CLEAR 


BR 


7$ 




JSR 


PC.$ATY4 


— ONLY REPORT A FATAL ERROR 


13 




;;THE ERROR NUMBER (FROM APT 


HALT 






BIS 


#BITO,@TCSR 


;SET BITO IN TCSR 


RESET 




;CLEAR BITO WITH RESET 


BIT 


ffBllO ,®TCSR 


•.TEST BITO CLEAR 


BEQ 


TST11 


;BR IF CLEAR 


BIC 


#BITO,®TCSR 


;CLEAR BITO. TO PRINT ERROR 


ERROR 


14 


; RESET DID NOT CLEAR BITO OF TCSR 



.MAIN. 


MACY1 1 


30A( 1052) 


19-APR 


-78 11 


C2DLDC 


P11 19-APR-78 


1 1 :41 




1516 










1517 










1518 










1519 










1520 










1521 


004424 


000004 






1522 


004426 


000005 






1523 


004430 


032777 


000004 


175714 


1524 


004436 


00141 1 






1525 










1526 


004440 


005737 


002336 




1527 


004444 


001002 






1523 


004446 


104015 






1529 


004450 


000404 






1530 










1531 


004452 








1532 


004452 


004737 


013170 




1533 


004456 


000015 






1534 


004460 


000000 






1535 










1536 


004462 


052777 


000004 


175662 


1537 


004470 


032777 


000004 


175654 


1538 


004476 


001001 






1539 










1540 


004500 


104016 






1541 










1542 


004502 


042777 


000004 


175642 


1543 


004510 


032777 


000004 


175634 


1544 


004516 


00141 1 






1545 










1546 


004520 


005737 


002336 




1547 


004524 


001002 






1548 


004526 


104017 






1549 


004530 


000404 






1550 


004532 








1551 


004532 


004737 


013170 




1552 


004536 


000017 






1553 


004540 


000000 






1554 










1555 


004542 


052777 


000004 


175602 


1556 


004550 


000005 






1557 


004552 


032777 


000004 


175S72 


1558 


004560 


001461 






1559 










1560 


004562 


042777 


000004 


175S62 


1561 


004570 


104020 






1562 











PAGE 35 

TEST THAT BITOCBREAK BIT) CAN BE SET & CLEARED & RESET 



SEQ 0035 



TEST 10 

,^ « 4< 4. >|c 

TSTIO: 



TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 



SCOPE 
RESET 
BIT 
BEO 


#BIT2,@'TCSR 
3$ 


;CLEAR EVERYTHING 

;TEST FOR BIT2 OF TCSR CLEAR 

;BR IF CLEAR 






TST 
BNE 
ERROR 
BR 


CTSTFL 
1$ 
15 
3$ 


;CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 
;BIT2 OF TCSR NOT CLEAR AFTER 


RESET 




JSR 
15 

HALT 


PC,$ATY4 


;;ONLY REPORT A FATAL ERROR 
;;THE ERROR NUMBER (FROM APT 


LIST) 


BIS 
BIT 
BNE 


#BIT2.@TCSR 
#BIT2,@TCSR 
4$ 


;SET BIT2 OF TCSR 
JTEST FOR BIT2 SET 
;BR IF SET 






ERROR 


16 


;BIT2 OF TCSR WILL NOT SET 






BIC 
BIT 
BEO 


)^BIT2.@TCSR 
#BIT2.®TCSR 
7$ 


;CLEAR BIT2 OF TCSR 
;TEST BIT2 CLEAR 
;BR IF CLEAR 






TST 
BNE 
ERROR 
BR 


CTSTFL 
5$ 
17 
7$ 


; CHECK IF DEVICE IS CONSOLE 
; IF YES. SKIP ERROR TYPEOUT 






JSR 
17 

HALT 


PC,$ATY4 


; ;ONLY REPORT A FATAL ERROR 
;;THE ERROR NUMBER (FROM APT 
; BITO OF TCSR WILL NOT CLEAR 


LIST) 


BIS 
RESET 
BIT 
BEO 


#BIT2,@TCSR 

#BIT2,i»TCSR 
TST12 


;SET BIT2 OF TCSR 

•.CLEAR BIT2 WITH RESET 

;TEST FOR BIT2 CLEAR 

;IF CLEAR. GO TO NEXT TEST 






BIC 

ERROR 


#BIT2,@TCSR 
20 


;CLEAR BIT2. TO PRINT ERROR 







; RESET DID NOT CLEAR BITS OF TCSR 



.MAIN. MACYIt 30A(1052) 19-APR-78 11:44 PAGE 36 

C2DLDC.P11 19-APR-78 11:41 T10 TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 



SEQ 0036 



1563 


















1564 


















1565 










; ;***** 


******** 






1566 










;*TEST 


1 1 


TEST THAT B 


IT6(XMIT INT EN) CAN BE SET & RESET 


1567 










; 


******** 






1568 


004572 


000004 






TST1 1 : 


SCOPE 






1569 


004574 


000005 








RESET 




;CLEAR EVERYTHING 


1570 


004576 


01 7703 


175560 






MOV 


@TVECT,R3 


;SAVE XMIT VECTOR 


1571 


004602 


01 2777 


004632 


175552 




MOV 


#1$,@TVECT 


;SET UP INTERRUPT VECTOR FOR ERROR REPORT 


1572 


004610 


004737 


012242 






JSR 


PC.WRPSW 


;SET PSW TO PRI0RITY=7 


1573 


004614 


000340 










.WORD 340 




1574 


004616 


032777 


000100 


17552b 




BIT 


#BIT6,@TCSR 


;TEST BIT6 OF TCSR 


1575 


004624 


001404 








BEO 


2$ 


;BR IF ZERO 


1576 


004626 


104021 








ERROR 


21 




1577 
















•,BIT6 IN TCSR NOT CLEAR AFTER RESET 


1578 


004630 


000402 








BR 


2$ 




1579 


















1580 


004632 


022626 






1$: 


CMP 


(SP)+, (SP)+ 


;RESTORE SP AFTER INTERRUPT 


1581 


004634 


104022 








ERROR 


22 




1582 
















;XMIT INTERRUPT OCCURRED PRIQa? 


1583 


















1584 


004636 


052777 


000100 


175506 


2$: 


BIS 


)^BIT6,@i"CSR 


;SET BIT6 OF TCSR 


1585 


004644 


032777 


000100 


175500 




BIT 


i^BITB.PTCSR 


;TEST BIT6 OF TCSR 


1586 


004652 


001001 








BNE 


3$ 


;BR, IF SET 


1587 


















1588 


004654 


104023 








ERROR 


23 




1589 
















;CANNOT SET BIT6 OF TCSR 


1590 


















1591 


004656 


042777 


000100 


175466 


3$: 


BIC 


#BIT6,@TCSR 


;CLEAR BIT6 OF TCSR 


1592 


004664 


032777 


000100 


1 75460 




BIT 


#BIT6,@TCSR 


ITEST BIT6 OF TCSR 


1 593 


004672 


00 1 401 








BEO 


4$ 


; BR IF CLEAR 


1594 


004674 


104024 








ERROR 


24 




1595 
















jCANNOT CLEAR BIT6 OF TCSR 


1596 


















1597 


004676 


052777 


000100 


175446 


4$: 


BIS 


#BIT6,®TCSR 


;SET BIT6 OF TCSR 


1598 


004704 


000005 








RESET 




JCLEAR BIT6 WITH RESET 


1599 


004706 


032777 


000100 


175436 




BIT 


#BIT6,(5>TCSR 


;TEST BIT6 OF TCSR 


1600 


004714 


001401 








BEO 


5$ 


;BR IF CLEAR 


1601 


















1602 


004716 


104025 








ERROR 


25 




1603 
















;CANNOT CLEAR BIT6 OF TCSR WITH RESET 


1604 


004720 


01 0377 


175436 




5$: 


MOV 


R3,®TVECT 


; RESTORE XMIT VECTOR 



.MAIN. MACY11 30A(1052) 19-APR-78 
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Til TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET 



SEQ 0037 



1605 
1606 


















1607 












« 4e >K * >(< 4< « * 






1608 










•*TEST 


12 


TEST THAT BIT6 


OF RCSR CAN BE SET & RESET 


1609 


















1610 


004724 


000004 






TST12: 


SCOPE 






161 1 


004726 


000005 








RESET 




;CLEAR EVERYTHING 


1612 


004730 


01 7703 


175422 






MOV 


@RVECT.R3 


;SAVE RECEIVE VECTOR 


1613 


004734 


01 2777 


004764 


175414 




MOV 


#1$,@RVECT 


;SET UP INTERRUPT VECTOR FOR ERROR REPORT 


1614 


004742 


004737 


012242 






JSR 


PC.WRPSW 


;SET PSW TO PRI0RITY=7 


1615 


004746 


000340 










.WORD 340 




1616 


004750 


032777 


000100 


175370 




BIT 


^BITB.^RCSR 


;TEST BIT6 OF RCSR 


1617 


004756 


001404 








BEO 


2$ 




1618 


004760 


104026 








ERROR 


26 




1619 
















;BIT6 OF RCSR NOT CLEAR AFTER RESET 


1620 


004762 


000402 








BR 


2$ 




1621 


















1622 


004764 


022626 






1$: 


CMP 


(SP)+, (SP)+ 


;RESTORE SP AFTER INTERRUPT 


1623 


004766 


104027 








ERROR 


27 




1624 
















;RCVR INTERRUPT WITH PRIORITYs? 


1625 


















1626 


004770 


052777 


000100 


175350 


2$: 


BIS 


#BIT6,!PRCSR 


;SET BIT6 OF RCSR 


1627 


004776 


032777 


000100 


175342 




BIT 


#BIT6,@RCSR 


;TEST BIT6 OF RCSR 


1628 


005004 


001001 








BNE 


3$ 


;BR. IF SET 


1629 


















1630 


005006 


104030 








ERROR 


30 




1631 
















jCANNOT SET BIT6 OF RCSR 


1632 


















1633 


005010 


042777 


000100 


175330 


3$: 


BIC 


)!^BIT6,@RCSR 


jCLEAR BIT6 OF RCSR 


1634 


005016 


032777 


000100 


175322 




BIT 


#BIT6,@RCSR 


;TEST BIT6 OF RCSR 


1635 


005024 


001401 








BEO 


4$ 


;BR, IF CLEAR 


1636 


















1637 


005026 


104031 








ERROR 


31 




1638 
















;CANNOT CLEAR BIT6 OF RCSR 


1639 


















1640 


005030 


052777 


000100 


175310 


4$: 


BIS 


ii'BITe.i'RCSR 


;SET BIT6 OF RCSR 


1641 


005036 


000005 








RESET 




•.CLEAR BIT60F RCSR WITH RESET 


1642 


005040 


032777 


000100 


175300 




BIT 


#BIT6,i>RCSR 


;TEST BIT6 OF RCSR 


1643 


005046 


001401 








BEQ 


5$ 


;BR, IF CLEAR 


1644 


















1645 


005050 


104032 








ERROR 


32 




1646 
















; CANNOT CLEAR BIT6 OF RCSR WITH RESET 


1647 


005052 


010377 


175300 




5$: 


MOV 


R3,®RVECT 


; RESTORE RECEIVE VECTOR 


1648 
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CZDLDC.P11 19-APR-78 11 '.41 T12 TEST THAT BIT6 OF RCSR CAN BE SET & RESET 



SEO 0038 



1649 








1650 


005056 


01 2737 


000012 


1651 








1652 








1653 








1654 


005064 


000004 




1655 


005066 


005737 


002336 


1656 


005072 


001420 




1657 


005074 


032777 


000100 


1658 


005102 


001014 




1659 


005104 


01 3703 


000004 


1660 


0051 10 


01 2737 


005124 


1661 


0051 16 


005777 


175264 


1662 


005122 


000402 




1663 








1664 


005124 


022626 




1665 


005126 


104010 




1666 








1667 


005130 


010337 


000004 


1668 








1669 








1670 








1671 








1672 


005134 


000004 




1673 


005136 


005737 


002336 


1674 


005142 


001460 




1675 


005144 


032777 


000100 


1676 


005152 


001054 




1577 


005154 


000005 




1678 


0051 56 


01 7703 


175226 


1679 


005162 


01 2777 


005212 


1680 


005170 


004737 


012242 


1681 


005174 


000340 




1682 


0051 76 


032777 


000100 


1683 


005204 


001404 




1684 


005206 


104033 




1685 








1686 


005210 


000402 




16B7 








1688 


005212 


022626 




1689 


005214 


104034 




1690 








1691 








1692 


005216 


052777 


000100 


1693 


005224 


032777 


000100 


1694 


005232 


001001 




1695 








1696 


005234 


104035 




1697 








1698 








1699 


005236 


042777 


000100 


1700 


005244 


032777 


000100 


1701 


005252 


001401 




1702 


005254 


104036 




1703 








1704 


005256 


052777 


000100 



TCLOCK: MOV 
;*TEST 13- 



*12,$TSTNM ; ADJUST TEST NUMBER TO (NEXT TEST 

TEST ABILITY TO ACCESS LKS 



SCOPE 






TST 


CTSTFL 


;IS CONSOLE UNDER TEST? 


BEO 


TST14 


; IF NOT , SKIP THIS TEST 


BIT 


*BIT6,®SWR 


; ARE LINE CLOCK TESTS INHIBITED? 


BNE 


TST14 


; IF YES, SKIP THIS TEST 


MOV 


@#4,R3 


;SAVE TIMEOUT VECTOR 


MOV 


*1$,@(S'4 


;SET UP TIMEOUT VECTOR 


TST 


@LKS 


; ACCESS LKS 


BR 


2$ 


;N0 TIMEOUT - BR TO END OF TEST 


CMP 


(SP)+, (SP)+ 


{RESTORE SP AFTER TIMEOUT 


ERROR 


10 


;CAN NOT ACCESS LKS 


MOV 


R3,®#4 


; RESTORE TIMEOUT VECTOR 



*TEST 14 

TST14: SCOPE 
TST 
BEO 
BIT 
BNE 
RESET 
MOV 
MOV 
USR 

BIT 
BEO 
ERROR 



CMP 
ERROR 



TEST THAT BITS OF LKS CAN BE SET & RESET 



175162 
175154 



175142 
175134 



175122 4$: 



BIS 
BIT 
BNE 



BIC 
BIT 
BEO 
ERROR 

BIS 



CTSTFL 
TST15 

#BIT6,@SWR 
TST15 

fRTCVT.RS 

#1$,@RTCVT 

PC.WRPSW 

.WORD 340 

#BIT6,®LKS 

2$ 

33 

2$ 

(SP) + ,(SP)-*- 
34 



A'BITe.i'LKS 
#BIT6,@LKS 
3$ 



(fBITe.PLKS 

#BIT6,€>LKS 

4$ 

36 

#BIT6,®LKS 



; IS CONSOLE UNDER TEST? 

; IF NOT, SKIP THIS TEST 

; ARE LINE CLOCK TESTS INHIBITED? 

; IF YES, SKIP THIS TEST 

JSAVE LINE CLOCK VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSW TO PRIORITY 7 

jTEST BIT6 OF LKS 

;BIT6 OF LKS NOT CLEAR AFTER RESET 

; RESTORE SP AFTER INTERRUPT 

; LKS INTERRUPT WITH PRIORITY-7 

;SET BIT6 OF LKS 
;TEST BITS OF LKS 
;BR IF SET 

; CANNOT SET BIT6 OF LKS 

.'CLEAR BIT6 OF LKS 
;TEST BITS OF LK 



; CANNOT CLEAR BIT6 OF LKS 
;SET BIT6 OF LKS 



.MAIN. 


MACY1 1 


30A( 1052) 


19-APR-78 11 


:44 


PAGE 39 






CZDLDC 


PI 1 


19-APR-78 


1 1 :41 


T14 


TEST 


THAT BIT6 OF LKS 


CAN BE SET & RESET 


1705 


005264 


000005 






RESET 




;CLEAR BITS OF LKS WITH RESET 


1706 


005266 


032777 


000100 175112 




BIT 


#BIT6,®LKS 


;TEST BITS OF LKS 


1707 


005274 


001401 






BEQ 


5$ 


;BR IF CLEAR 


1708 
















1709 


005276 


104037 






ERROR 


37 




1 710 














; CANNOT CLEAR BITS OF LKS WITH 


1711 


005300 


010377 


175104 


5$: 


MOV 


R3,@RTCVT 


'.RESTORE LINE CLOCK VECTOR 



SEO 0039 



.MAIN. MACY11 30A(1052) 19-APR-78 
C2DLDC.P11 19-APR-78 11:41 
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T14 TEST THAT BITS OF LKS CAN BE SET & RESET 



SEQ 0040 



1713 

1714 JJ***************!!!*^************************************* 



1715 










;*TEST 


15 


TEST FOR DUAL 


ADDRESSING OF REGISTERS 


1716 


















1717 


005304 


000004 






TST15: 


SCOPE 






1718 


005306 


01 3703 


000004 






MOV 


f>#4,R3 


;SAVE TIMEOUT VECTOR 


1719 


005312 


01 3704 


000006 






MOV 


@#6,R4 


;SAVE TIMEOUT PSW 


1720 


005316 


01 2737 


005450 


000004 




MOV 


/S'4$,@*4 


;SET UP TIMEOUT VECTOR 


1721 


005324 


01 2737 


000340 


000006 




MOV 


#340, ##6 


;KEEP PRI0=:7 


1722 


005332 


000005 








RESET 




;CLEAR EVERYTHING 


1723 


005334 


01 2700 


000002 






MOV 


iVBITl ,R0 


JSET UP BIT MASK 


1724 


005340 


032777 


000020 


173472 




BIT 


#BIT4,@SWR 


;CLOCK TEST ONLY? 


1725 


005346 


001404 








BEQ 


1$ 


;BR IF NOT 


1726 


005350 


01 3737 


002406 


001020 




MOV 


LKS.SGDADR 


; ELSE, MOVE GOOD LKS ADDRESS INTO SGDADR 


1727 


005356 


000403 








BR 


2$ 




1728 


005360 


01 3737 


002346 


001020 


1$: 


MOV 


RCSR.SGDADR 


;MOVE GOOD RCSR ADDRESS INTO SGDADR 


1729 


005366 


01 3737 


001020 


001022 


2$: 


MOV 


$GDADR,$BDADR 


;MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION 


1 730 


005374 


040037 


00 1 022 








RO , SBDADR 


jCREATE BAD ADDRESS BY COMPLEMENTING ONE BIT 


1731 


005400 


023737 


001020 


001022 




CMP 


$GDADR,$8DADR 


;ARE ADDRESSES IDENTICAL? 


1732 


005406 


001002 








BNE 


3$ 


; IF NOT, TEST THIS ADDRESS 


1733 


005410 


050037 


001022 






BIS 


RO, SBDADR 


;ELSE. BIT SET THIS BIT POSITION TO GENERATE BAD 


1 734 


0054 1 4 


01 7737 


1 73402 


00 1 024 


3$ : 




@$BDADR , SGDDAT 


;SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS 


1735 


005422 


052777 


000100 


173372 




BIS 


#BIT6,@$BDADR 


;SET BIT6 USING BAD ADDRESS 


1 736 


005430 


032777 


000100 


173362 




BIT 


#BIT6,®$GDADR 


;CHECK TO SEE IF GOOD ADDRESS CONTAINS BITS 


1 737 


005436 


00101 1 








BNE 


6$ 


;BR IF S~.T — ~> ERROR 


1738 


005440 


01 3777 


001024 


173354 




MOV 


SGDDAT, ©SBDADR 


; RESTORE ANY MEMORY LOCATION THAT MAS ALTERED 


1 739 


005446 


000401 








BR 


5$ 


;BR TO CONTINUE TEST 


1740 


005450 


022626 






4$: 


CMP 


(SP)+,{SP)+ 


;RESTORE SP AFTER TIMEOUT 


1741 


005452 


006300 






5$: 


ASL 


RO 


jSHIFT BIT MASK TO NEXT POSITION 


1 742 


005454 


105700 








TSTB 


RO 


JCOMPLEMENTED ALL BITS FROM 1 - 7? 


1 743 


005456 


100343 








BPL 


2$ 


;BR, IF NOT. 


1744 


005460 


000401 








BR 


7$ 


;BR TO NEXT TEST 


1745 
1746 


005462 


104040 






6$: 


ERROR 


40 


;DUAL ADDRESSING ERROR 


1747 
















; SBDADR = DUAL ADDRESS 


1748 
















; SGDADR = GOOD ADDRESS 


1749 
1750 


005464 


010337 


000004 




7$: 


MOV 


R3,®#4 


; RESTORE TIMEOUT VECTOR 


1751 


005470 


010437 


000006 






MOV 


R4,e(^6 


; RESTORE TIMEOUT PSW 
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T15 TEST FOR DUAL ADDRESSING OF REGISTERS 



SEQ 0041 



1752 
1753 
1754 



« Ik Ml Xi * « * >X 



1755 










;*TEST 


16 


TEST THAT 


3IT7 OF LKS SETS & CAN BE CLEARED 


1756 














1757 


005474 


000004 






TST16: 


SCOPE 






1758 


005476 


005737 


002336 






TST 


CTSTFL 


;IS CONSOLE UNDER TEST? 


1759 


005502 


001437 








BEO 


TST17 


;IF NOT, SKIP THIS TEST 


1760 


005504 


032777 


000100 


173326 




BIT 


#BIT6,@SWR 


; ARE LINE CLOCK TESTS INHIBITED? 


1761 


005512 


001033 








BNE 


TST17 


; IF YES, SKIP THIS TEST 


1762 


005514 


000005 








RESET 




;CLEAR EVERYTHING & SET BIT7 OF LKS 


1763 


005516 


105777 


174664 




1$: 


TSTB 


@LKS 


;TEST FOR BIT7 OF LKS 


1764 


005522 


100401 








BMI 


2$ 


;BR IF SET 


1765 


















1766 


005524 


104041 








ERROR 


41 


;BIT7 OF LKS DID NOT SET WITH RESET 


1767 


















1768 


005526 


042777 


000200 


174652 


2$: 


BIC 


#BIT7,@LKS 


;CLEAR BIT7 OF LKS 


1769 


005534 


032777 


000200 


174644 




BIT 


#BIT7,®LKS 


JTEST BIT7 OF LKS 


1770 


005542 


001410 








BEO 


3$ 




1771 


005544 


042777 


000200 


174634 




BIC 


#BIT7,@LKS 


;TRY ONE MORE TIME BECAUSE THE CLOCK 


1772 


C05552 


032777 


000200 


174626 




BIT 


#BIT7,@LKS 


; MAY HAVE SET IMMEDIATELY AFTER THE 


1773 


005560 


001401 








BEO 


3$ 




1774 


















1775 


005562 


104042 








ERROR 


42 


;CAN NOT CLEAR BIT7 OF LKS 


1776 


















1777 


005564 


005000 






3$: 


CLR 


RO 


;CLEAR TIMER 


1778 


005566 


105777 


174614 




CONT: 


TSTB 


@LKS 


JTEST FOR BIT7 OF LKS 


1779 


005572 


100403 








BMI 


TST17 


;BR, IF SET 


1780 


005574 


005200 








INC 


RO 


■.INCREMENT TIMER 


1781 


005576 


001373 








BNE 


CONT 


; CONTINUE UNTIL TIME EXPIRES 


1782 


















1783 


005600 


104043 








ERROR 


43 


;BIT7 OF LKS DOES NOT SET 
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116 TEST THAT BIT? OF LKS SETS & CAN BE CLEARED 



SEQ 004S 



1785 








1786 








1787 








1 788 








1789 


005602 


000004 




1790 


005604 


005737 


002336 


1791 


005610 


001503 




1 792 


005612 


032777 


0001 00 


1793 


005620 


001077 




1794 


005622 


004737 


012242 


1795 


005626 


000340 




1 796 


005630 


01 7703 


1 74554 


1 797 


005634 


01 7704 


1 74552 


1 798 


005640 


01 2777 


005702 


1799 


005646 


01 2777 


000340 


1800 


005654 


042777 


000200 


1801 


005652 


052777 


0001 00 


1802 


005670 


105777 


1 74512 


1803 


005674 


100375 




1 804 


005576 


000240 




1805 


005700 


000402 




1806 








1807 


005702 


022626 




1808 


005704 


104044 




1809 








1810 


005706 


005077 


1 74474 


181 1 


005712 


01 2777 


005740 


1812 


005720 


004737 


012242 


1813 


005724 


000240 




1814 


005726 


105777 


1 74454 


1815 


005732 


100375 




1816 


005734 


000240 




1817 


005736 


000402 




1818 








1819 


005740 


022626 




1 820 


005742 


104045 




1821 








1822 


005744 


01 2777 


006000 


1 823 


005752 


042777 


000200 


1824 


005760 


052777 


0001 00 


1 825 


005766 


105777 


1 7441 4 


1826 


005772 


100375 




1 827 


005774 


000240 




1828 








1829 


005776 


104046 




1 830 








1831 


006000 


022626 




1832 


006002 


042777 


000100 


1 833 


006010 


010377 


174374 


1834 


006014 


01 0477 


174372 


1835 








1836 









174542 
174536 
174524 
174516 



174436 
174426 
174420 



-fTEST 17 

TST17: SCOPE 
TST 
BEO 
BIT 
BNE 
JSR 

MOV 
MOV 
MOV 
MOV 
BIC 
BIS 

1$: TSTB 
BPL 
NOP 
BR 

2$: CMP 

ERROR 

3$: CLR 
MOV 
JSR 

20$: TSTB 
BPL 
NOP 
BR 

4$: CMP 

ERROR 

5$: MOV 
BIC 
BIS 

6S.- TSTB 
BPL 
NOP 



CMP 
BIC 
MOV 
MOV 



TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 
************************** 



CTSTFL 
TST20 

#BIT6,@SWR 

TST20 

PC.WRPSW 

.WORD 340 

f>RTCVT,R3 

IPRTCPSW,R4 

#2$,@RTCVT 

#340,@RTCPSW 

(yBIT7,@LKS 

#BIT6,@LKS 

®LKS 

1$ 

3$ 

(SP)+, (SP)+ 
44 



;IS CONSOLE UNDER TEST? 

; IF NOT , SKIP THIS TEST 

; ARE LINE CLOCK TESTS INHIBITED? 

; IF YES, SKIP THIS TEST 

;SET PSW TO PRIORITY 7 

;SAVE LINE CLOCK VECTOR 

;SAVE LINE CLOCK PSW VECTOR 

;SET RTC INTERRUPT VECTOR TG ERROR REPORT 

;KEEP PRIORITY AT 7 

-.CLEAR CLOCK DONE FLAG 

;SET INTERRUPT ENABLE 

;WAIT FOR RTC DONE( INTERRUPT REQUEST) 

;GIVE TIME FOR ANY INTERRUPTS 
;BR, IF NO INTERRUPT OCCURS 

;RESTORE SP AFTER INTERRUPT 
;RTC INTERRUPTS AT PRIORITY 7 



@LKS 



#4$,@RTCVT 
PCWRPSW 
.WORD 240 

@LKS 
20$ 

5$ 

(SP)+,(SP)+ 
45 

#7$,@RTCVT 

#BIT7,@LKS 

#BIT6,@LKS 

f>LKS 

6$ 



(SP)+,(SP)+ 
#BIT6,@LKS 
R3,@RTCVT 
R4,©RTCPSW 



;DISABLE RTC INTERRUPTS & CLEAR DONE 



SET RTC INTERRUPT VECTOR FOR ERROR 
CHANGE PSW TO PRIORITY 5 

WAIT FOR DONE (INTERRUPT REQUEST) 

GIVE TIME FOR ANY INTERRUPT 

IF NO INTERRUPT - BR TO CONTINUE TEST 

RESTORE SP AFTER INTERRUPT 

RTC INTERRUPTS WITH INTERRUPTS DISABLED 

POINT RTC VECTOR TO END OF TEST 
CLEAR CLOCK DONE FLAG 
ALLOW INTERRUPTS 
WAIT FOR RTC DONE 

GIVE TIME FOR INTERRUPT 

RTC INTERRUPT DID NOT OCCUR 

RESTORE SP AFTER INTERRUPT 
DISABLE INTERRUPTS 
RESTORE LINE CLOCK VECTOR 
RESTORE LINE CLOCK PSW VECTOR 
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1837 
1838 
1839 



1840 
















1841 










;*TEST 


20 


TEST RTC FOR 


DOUBLE INTERRUPTS 


1042 


















1843 


006020 


000004 






TST20: 


SCOPE 






1844 


006022 


005737 


002336 






TST 


CTSTFL 


;IS CONSOLE UNDER TEST? 


1845 


006026 


001457 








BEO 


TST21 


; IF NOT , SKIP THIS TEST 


1846 


006030 


032777 


000100 


173002 




BIT 


#BIT6,@SWR 


; ARE LINE CLOCK TESTS INHIBITED? 


1847 


006036 


001053 








BNE 


TST21 


;IF YES, SKIP THIS TEST 


1848 


006040 


000005 








RESET 




;CLEAR EVERYTHING 


1849 


006042 


01 7703 


1 74342 






MOV 


@RTCVT ,R3 


;SAVE LINE CLOCK VECTOR 


1850 


006046 


01 7704 


1 74340 






MOV 


(PRTCPSW,R4 


;SAVE LINE CLOCK PSW VECTOR 


1851 


006052 


01 2777 


006122 


174330 




MOV 


#2$,®RTCVT 


;SET UP RTC INTERRUPT VECTOR 


1852 


006060 


01 2777 


000340 


174324 




MOV 


#340,@RTCPSW 


; DISALLOW INTERRUPTS AFTER THE INTERRUPT 


1853 


006066 


004737 


012242 






USR 


PCWRPSW 


;SET PRIORITY TO 5 


1854 


006072 


000240 










.WORD 240 




1855 


006074 


042777 


000200 


174304 




BIC 


#BIT7,@LKS 


; CLEAR CLOCK DONE FLAG 


1856 


006102 


052777 


000100 


174276 




BIS 


#BIT6,®LKS 


; ENABLE CLOCK INTERRUPTS 


1857 


0061 10 


105777 


174272 




1$: 


TSTB 


@LKS 


JWAIT FOR DONE 


1858 


0061 14 


100375 








BPL 


1$ 




1859 


0061 16 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPT 


1860 
1861 


006120 


104047 








ERROR 


47 


;RTC INTERRUPT DID NOT OCCUR 


1862 
1863 


0061 22 


022626 






2$: 


CMP 


(SP)+, (SP)+ 


;RESTORE SP AFTER INTERRUPT 


1864 


006124 


01 2777 


006144 


174256 




MOV 


#3$,@RTCVT 


; POINT RTC VECTOR TO ERROR REPORT 


1865 


006132 


004737 


012242 






USR 


PCWRPSW 


;SET PSW TO PRIORITY 5 


1866 


006136 


000240 










.WORD 240 




1867 


006140 


000240 








NOP 




;GIVE SOME TIME FOR AN INTERRUPT 


1868 


006142 


000402 








BR 


4$ 


;N0 INTERRUPT - BR TO END OF TEST 


1869 
1870 


006144 


022626 






3$: 


CMP 


(SP)+,(SP)+ 


; RESTORE SP AFTER INTERRUPT 


1871 


006146 


104050 








ERROR 


50 


; INTERRUPT SEQUENCE DID NOT CLEAR 


1872 
















; INTERRUPT REQUEST 


1873 


















1874 


006150 


042777 


0001 00 


174230 


4$: 


BIC 


#BIT6,@LKS 


; DISABLE CLOCK INTERRUPTS 


1875 


006156 


010377 


174226 






MOV 


R3,©RTCVT 


; RESTORE LINE CLOCK VECTOR 


1878 


006162 


010477 


174224 






MOV 


R4,©RTCPSW 


; RESTORE LINE CLOCK PSW VECTOR 
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T20 TEST RTC FOR DOUBLE INTERRUPTS 



SEP 0044 



1 877 


















1878 


















1879 










;;***** 


* »< 4! * * 14 






1 880 










;*TEST 


21 


TEST THAT RTC 


INTERRUPT CLEARS WITH RESET 


1881 










; ? * * * * * 






1882 


006166 


000004 






TST21 : 


SCOPE 






1883 


006170 


005737 


002336 






TST 


CTSTFL 


; IS CONSOLE UNDER TEST? 


1 884 


0061 74 


001442 








BEO 


TST22 


;IF NOT, SKIP THIS TEST 


1885 


0061 76 


032777 


000100 


172634 




BIT 


#BIT6,(PSWR 


; ARE LINE CLOCK TESTS INHIBITED? 


1886 


006204 


001036 








BNE 


TST22 


; I F YES , SKIP THIS TEST 


1 887 


006206 


004737 


012242 






JSR 


PC, WRPSW 


; SET PRIORITY TO 7 


1888 


006212 


000340 










.WORD 340 




1 889 


0062 1 4 


01 7703 


174170 






MOV 


fRTCVT , R3 


; SAVE LINE C LOCK VECTOR 


1890 


006220 


01 2777 


006272 


174162 




MOV 


#2$,®RTCVT 


; POINT RTC VECTOR TO ERROR REPORT 


1 891 


006226 


042777 


000200 


174152 




BIC 


#BIT7,PLKS 


;CLEAR CLOCK DONE FLAG 


1892 


006234 


052777 


0001 00 


174144 




BIS 


#BIT6,®LKS 


; ENABLE CLOCK INTERRUPTS 


1893 


006242 


105777 


174140 




1$: 


TSTB 


@LKS 


;WAIT FOR DONE ( INTERRUPT REQUEST) 


1 894 


006246 


1 0375 








BP L 


1$ 




1895 


006250 


000005 








RESET 




;CLEAR PENDING INTERRUPT WITH RESET 


1896 


006252 


004737 


012242 






JSR 


PC, WRPSW 


;SET PRIORITY TO 5 


1897 


006256 


000240 










.WORD 240 




1898 


006260 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPT 


1899 


006262 


042777 


000100 


174116 




BIC 


#BIT6,i>LKS 


•.DISALLOW INTERRUPTS 


1900 


006270 


000402 








BR 


3$ 


; BR TO END OF TEST 


1901 
1902 


006272 


022626 






2$: 


CMP 


{SP)+,(SP)+ 


; RESTORE SP AFTER INTERRUPT 


1903 


006274 


104051 








ERROR 


51 


; RESET DID NOT CLEAR INTERRUPT 


1904 


















1905 


006276 


010377 


174106 




3$: 


MOV 


R3,@RTCVT 


; RESTORE LINE CLOCK VECTOR 



.MAIN. 


MACY1 1 


30A(1052) 
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CZDLDC. 


PI 1 


19-APR-7e 


1 1 :41 




T21 


TEST 


THAT RTC INTERRUPT CLEARS WITH RESET 


1906 


















1907 


















1908 














1909 










•♦TEST 


22 


TEST THAT RTC 


INTERRUPT CLEARS BY CLEARING BIT? OF LKS 


1910 


















191 1 


006302 


000004 






TST22: 


SCOPE 






1912 


006304 


005737 


002336 






TST 


CTSTFL 


; IS CONSOLE UNDER TEST? 


1913 


006310 


00 1447 








BEO 


TST23 


; IF NOT . SKIP THIS TEST 


1914 


006312 


032777 


000100 


172520 




BIT 


#BIT6 .(aSWR 


; ARE LINE CLOCK TESTS INHIBITED? 


1915 


006320 


001043 








BNE 


TST23 


; IF YES, SKIP THIS TEST 


1916 


006322 


004737 


012242 






USR 


PC, WRPSW 


;SET PRIORITY TO 7 


1917 


006326 


000340 










.WORD 340 




1918 


006330 


01 7703 


174054 






MOV 


(i>RTCVT,R3 


;SAVE LINE CLOCK VECTOR 


1919 


006334 


01 2777 


006412 


174046 




MOV 


#2$,@RTCVT 


; POINT RTC VECTOR TO ERROR REPORT 


1920 


006342 


042777 


000200 


174036 




BIC 


#BIT7,@LKS 


;CLEAR CLOCK DONE FLAG 


1921 


006350 


052777 


000100 


174030 




BIS 


)^BIT6,@LKS 


; ENABLE CLOCK INTERRUPTS 


1922 


006356 


105777 


174024 




1$: 


TSTB 


PLKS 


;WAIT FOR DONE ( INTERRUPT REQUEST) 


1923 


006362 


100375 








BPL 


1$ 




1924 


006364 


042777 


000200 


174014 




BIC 


#BIT7,@LKS 


;CLEAR DONE & INTERRUPT 


1925 


006372 


004737 


012242 






dSR 


PC, WRPSW 


;ALLOW INTERRUPTS 


1926 


006376 


000240 










.WORD 240 




1927 


006400 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPT 


1928 


006402 


042777 


000100 


173776 




BIC 


#BIT6,@LKS 


;DISALLOW INTERRUPTS 


1929 


006410 


000402 








BR 


3$ 


;BR TO END OF TEST 


1930 


















1931 


















1932 


006412 


022626 






2$: 


CMP 


{SP) + ,{SP)-»- 


;RESTORE SP AFTER INTERRUPT 


1933 


006414 


104052 








ERROR 


52 


•.CLEARING BIT? OF LKS DID NOT CLEAR INTERRUPT 


1934 


















1935 


006416 


01 0377 


173766 




3$: 


MOV 


R3,@RTCVT 


; RESTORE LINE CLOCK VECTOR 


1936 


006422 


004737 


012242 






JSR 


PC, WRPSW 


; RESTORE PRIORITY TO 7 


1937 


006426 


000340 








.WORD 


340 
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T22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 



SEO 0046 



1938 








1939 








1940 








1941 








1942 








1943 


005430 


000004 




1944 


006432 


005737 


002336 


1945 


006436 


001462 




1946 


006440 


032777 


000100 


1947 


006446 


001056 




1948 


006450 


042777 


000100 


1949 








1950 


006456 


005000 




1951 


006460 


01 2701 


177777 


1952 


006464 


005002 




1953 


006466 


005077 


173714 


1954 


006472 


105777 


173710 


1955 


006476 


100375 




1956 


006500 


005077 


173702 


1957 


006504 


105777 


173676 


1958 


006510 


100003 




1959 


006512 


005202 




1960 


006514 


005077 


173666 


1961 


006520 


005200 




1962 


006522 


001370 




1963 


006524 


005201 




1964 


006526 


001003 




1965 


006530 


01 0237 


006600 


1966 


006534 


000753 




1967 


006536 


01 3701 


006600 


1968 


006542 


160201 




1969 


C06544 


100001 




1970 


006546 


005401 




1971 


006550 


020127 


000001 


1972 


006554 


003403 




1973 








1974 


006556 


010237 


006602 


1975 


006562 


104053 




1976 








1977 


006564 


032777 


000020 


1978 


005572 


001404 




1979 


006574 


000137 


012102 


1980 








1981 


006600 


000000 




1982 


006602 


000000 





;*TEST 23 



TEST CLOCK REPEATABILITY 



* * * ^ * * * * :Si « Si 



172372 

173730 



172246 5$: 



first: 
SECND: 



SCOPE 






TST 


CTSTFL 


;IS CONSOLE UNDER TEST? 


BEQ 


TST24 


; IF NOT , SKIP THIS TEST 


BIT 


#BIT6,©SWR 


;ARE LINE CLOCK TESTS INHIBITED? 


BNE 


TST24 


;IF YES, SKIP THIS TEST 


BIC 


#BIT6,(?LKS 


JDISALLOW INTERRUPTS 


CLR 


RO 


JCLEAR A TIMER 


MOV 


#-1 ,R1 


;SET A FLAG INDICATING FIRST PASS THRU THIS 


CLR 


R2 


.CLEAR CLOCK COUNTER 


CLR 


@LKS 


;CLEAR DONE 


TSTB 


@LKS 


•SYNC ON DONE 


BPL 


2$ 










TSTB 


@LKS 


IS CLOCK DONE? 


BPL 


4$ 


BR IF NOT . TO INCREMENT TIMER 




R2 


IF DONE, INCREMENT CLOCK COUNT 


CLR 


PLKS 


CLEAR DONE 


INC 


RO 


INCREMENT TIMER 


BNE 


3$ 


BR IF TIME REMAINS 




R1 


INCREMEr;T LOOP PASS FLAG 


BNE 


CMPARE 


BR IF TWO PASSES HAVE BEEN MADE 


MOV 


R2, FIRST 


IF NOT, STORE FIRST CLOCK COUNT 


BR 


1$ 


DO LOOP AGAIN 


MOV 


FIRST, R1 


RECALL FIRST CLOCK COUNT 


SUB 


R2,R1 


CALCULATE DIFFERENCE OF TWO COUNTS 


BPL 


TOLER 


IF POSITIVE, SKIP NEGATION OF DIFFERENCE 


NEG 


R1 


MAKE DIFFERENCE A POSITIVE NUMBER 


CMP 


R1 ,ffi 


COMPARE DIFFERENCE WITH DESIRED TOLERANCE 


BLE 


5$ 


BR, IF LOWER/EQUAL TO TOLERANCE 


MOV 


R2, SECND ; STORE SECOND COUNT 


ERROR 


53 


CLOCK REPEATABILITY ERROR 


BIT 


#BIT4,@SWR 


CLOCK TESTS ONLY? 


BEO 


TST24 ;BR IF NOT 


JMP 


$EOP ;ELSE, JUMP TO END OF PASS ROUTINE 


.WORD 







.WORD 
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T23 TEST CLOCK REPEATABILITY 



SEQ 0047 



1983 








1984 








1985 








1986 








1987 








1988 


006604 


000004 




1989 


006606 


042777 


000100 


1990 


006614 


017703 


173542 


1991 


006620 


01 2777 


006644 


1992 


006626 


105777 


173520 


1993 


006632 


100375 




1994 


006634 


004737 


012242 


1995 


006640 


000140 




1996 


006642 


000402 




1997 








1998 


006644 


022626 




1999 


006646 


104054 




2000 








2001 


006650 


012777 


006670 


2002 


006656 


052777 


000100 


2003 


006664 


000240 




2004 








2005 


006666 


104055 




2006 








2007 


006670 


042777 


000100 


2008 


006676 


022626 




2009 


006700 


01 0377 


173456 


2010 









*TEST 24 



TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 



173536 
173534 



173504 3$: 
173466 



SCOPE 






BIC 


#BIT6,@TCSR 


; CLEAR TRANSMIT INTERRUPT ENABLE 


MOV 


@TVECT,R3 


;SAVE XMIT VECTOR 


MOV 


#2$,@TVECT 


; POINT XMIT VECTOR TO ERROR REPORT 


TSTB 


@TCSR 


•.WAIT FOR DONE 


BPL 


1$ 




dSR 


PCWRPSW 


;SET PSW TO PRIORITY 3 




•WORD 140 




BR 


3$ 




CMP 


(SP)+, (SP)+ 


; RESTORE SP AFTER INTERRUPT 


ERROR 


54 








;XMIT INTERRUPTS WITH INTERRUPT ENABLE 


MOV 


#4$,®TVECT 


;SET XMIT VECTOR TO END OF TEST 


BIS 


#BIT6,@TCSR 


; ENABLE INTERRUPTS 


NOP 






ERROR 


55 


;XMIT DID NOT INTERRUPT 


BIC 


#BIT6,@TCSR 


JDISABLE INTERRUPTS 


CMP 


(SP)+, (SP)+ 


; RESTORE SP AFTER INTERRUPT 


MOV 


R3,®TVECT 


•.RESTORE XMIT VECTOR 



.MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 48 

CZDLDC.P11 19-APR-78 1i:41 T24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 



SEQ QQ4U 



201 1 


















2012 














2013 










;*TEST 


25 


TEST THAT XMIT 


INTERRUPTS DO NOT OCCUR WHEN DISABLED 


2014 














2015 


006704 


000004 






TST25: 


SCOPE 






2016 


006706 


042777 


000100 


173436 




BIC 


#BIT6,#TCSR 


;DISABLE INTERRUPTS 


2017 


006714 


004737 


012242 






USR 


PC.WRPSW 


;SET PSW TO PRIORITY 7 


2018 


006720 


000340 










.WORD 340 




2019 


006722 


01 7703 


173434 






MOV 


i>TVECT,R3 


;SAVE XMIT VECTOR 


2020 


006726 


01 2777 


006754 


173426 




MOV 


#2$,@TVECT 


; POINT XMIT VECTOR TO ERROR REPORT 


2021 


006734 


105777 


173412 




1$: 


TSTB 


PTCSR 


;WAIT FOR DONE 


2022 


006740 


100375 








BPL 


1$ 




2023 


006742 


052777 


000100 


173402 




BIS 


#BIT6,@TCSR 


;ENABLE INTERRUPT 


2024 


006750 


000240 








NOP 






2025 


006752 


000402 








BR 


3$ 


JCONTINUE TEST 


2026 


















2027 


006754 


022626 






2$: 


CMP 


(SP)+,{SP)+ 


;RESTORE SP AFTER INTERRUPT 


2028 


006756 


104056 








ERROR 


56 




2029 
















;XMIT INTERRUPTS AT PRIORITY^? 


2030 


006760 


042777 


000100 


173364 


3$: 


BIC 


#BIT6, PTCSR 


;CLEAR INTERRUPT ENABLE 


2031 


006766 


012777 


007006 


173366 




MOV 


#4$,@TVECT 


; POINT XMIT VECTOR TO ERROR REPORT 


2032 


006774 


004737 


012242 






JSR 


PC.WRPSW 


;SET PSW TO PRIORITY 3 


2033 


007000 


000140 










.WORD 140 




2034 


007002 


000240 








NOP 






2035 


007004 


000402 








BR 


5$ 


;BR TO END OF TEST-NO INTERRUPT 


2036 


















2037 


007006 


022626 






4$: 


CMP 


(SP)+, {SP)+ 


; RESTORE SP AFTER INTERRUPT 


2038 


007010 


104057 








ERROR 


57 




2039 
















JXMIT INTERRUPT OCCURES WITH BIT6 CLEAR 


2040 


007012 


01 0377 


173344 




5$: 


MOV 


R3,@TVECT 


; RESTORE XMIT VECTOR 



MACY11 30A(1052) 19-APR-78 11:44 PAGE 49 



ZDLDC 


P11 


19-APR-78 


1 1 :41 




T25 


TEST 


THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


2041 


















2042 


















2043 










; ************ 






2044 










;*TEST 


26 


TEST TRANSMITTER FOR DOUBLE INTERRUPTS 


2045 


















2046 


007016 


000004 






TST26: 


SCOPE 






2047 


007020 


042777 


000100 


173324 




BIC 


#BIT6,@TCSR 


;CLEAR INTERRUPT ENABLE 


2048 


007026 


01 7703 


173330 






MOV 


@TVECT,R3 


;SAVE XMIT VECTOR 


2049 


007032 


01 7704 


173326 






MOV 


(PTPSW, R4 


;SAVE XMIT PSW VECTOR 


2050 


007036 


01 2777 


007100 


173316 




MOV 


#2$,@TVECT 


;SET UP XMIT VECTOR 


2051 


007044 


01 2777 


000340 


173312 




MOV 


#340,@TPSW 


'.SET PIO 7 AFTER INTERRUPT 


2052 


007052 


004737 


012242 






JSR 


PC.WRPSW 


;SET PSW TO PRIORITY 3 


2053 


007056 


000140 










.WORD 140 




2054 


007060 


105777 


173266 




1$: 


TSTB 


®TCSR 


;WAIT FOR DONE 


2055 


007064 


100375 








BPL 


1$ 




2056 


007066 


052777 


000100 


173256 




BIS 


#BIT6,@TCSR 


;ENABLE INTERRUPTS 


2057 


007074 


000240 








NOP 






2058 


















2059 


007076 


104060 








ERROR 


60 




2060 
















.-XMIT INTERRUPT DID NOT OCCUR 


2061 


007100 


022626 






2$: 


CMP 


(SP)+.(SP)-i 


;RESTORE SP AFTER INTERRUPT 


2062 


0071 02 


01 2777 


007130 


173252 




MOV 


#4$,@TVECT 


'.POINT XMIT VECTOR TO ERROR 


2063 


0071 10 


004737 


012242 






JSR 


PC.WRPSW 


'.SET PSW TO PRIORITY 3 


2064 


0071 14 


000140 








.WORD 


140 




2065 


007116 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPTS 


2066 


0071 20 


042777 


000100 


173224 




BIC 


#BIT6,@TCSR 


^DISABLE INTERRUPTS 


2067 


007126 


000402 








BR 


5$ 


;BR TO END OF TEST 


2068 


















2069 


007130 


022626 






4$: 


CMP 


(SP) + ,(SP)-f 


;RESTORE SP AFTER INTERRUPT 


2070 


0071 32 


104061 








ERROR 


61 




2071 
















;XMIT RE-INTERRUPTED 


2072 


007134 


01 0377 


173222 




5$: 


MOV 


R3,@TVECT 


'.RESTORE XMIT VECTOR 


2073 


007140 


01 0477 


173220 






MOV 


R4,®TPSW 


; RESTORE XMIT PSW VECTOR 


2074 


















2075 


















2076 










;*TEST 


27 


TEST THAT XMIT 


INTERRUPT CLEARS WITH LOADING TBUF 


2077 














2078 


007144 


000004 






TST27: 


SCOPE 






2079 


007146 


042777 


000100 


173176 




BIC 


(!^BIT6,@TCSR 


jDISABLE INTERRUPTS 


2080 


0071 54 


004737 


012242 






JSR 


PC.WRPSW 


;SET PSW TO PRIORITY 7 


2081 


007160 


000340 










.WORD 340 




2082 


007162 


01 7703 


173174 






MOV 


®TVECT,R3 


;SAVE XMIT VECTOR 


2083 


007166 


01 2777 


007240 


173166 




MOV 


#2$.@TVECT 


; POINT XMIT VECTOR TO ERROR 


2084 


007174 


052777 


000100 


173150 




BIS 


#BIT6,@TCSR 


; ENABLE INTERRUPTS 


2085 


007202 


005077 


173146 






CLR 


®TBUF 


'.LOAD TBUF 


2086 


007206 


105777 


173140 




1$: 


TSTB 


@TCSR 


;WAIT FOR DONE (INTERRUPT) 


2087 


007212 


100375 








BPL 


1$ 




2088 


007214 


005077 


173134 






CLR 


@TBUF 


;FILL SECOND BUFFER TO RESET INT. 


2089 


007220 


004737 


012242 






JSR 


PC.WRPSW 


;ALLOW INTERRUPTS 


2090 


007224 


000140 










.WORD 140 




2091 


007226 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPTS 


2092 


007230 


042777 


000100 


1731 U 




BIC 


#BIT6,@TCSR 


'.DISABLE INTERRUPTS 


2093 


007236 


000402 








BR 


3$ 


;BR TO END OF TEST 


2094 


















2095 


007240 


022626 






2$: 


CMP 


(SP) + , (SP)-l- 


IRESTORE SP AFTER INTERRUPT 


2096 


007242 


104062 








ERROR 


62 





SEO 0049 



.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 50 SEQ0050 
CZDLDC.P11 19-APR-78 1i:41 T27 TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 



2097 ; LOADING TBUF DID NOT CLEAR INTERRUPT. 

2098 007244 010377 173112 3$; MOV R3,@TVECT ; RESTORE XMIT VECTOR 
2099 



.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 51 SEQ 0051 



2DLDC 


P1 1 


19-APR-78 


11 :41 




T27 


TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 


2100 


















2101 










• ; « « 






2102 










;*TEST 


30 


TEST THAT RCVR 


ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 


2103 














2104 


007250 


000004 






TST30: 


SCOPE 






2105 


007252 


000005 








RESET 




;CLEAR EVERYTHING 


2106 


007254 


052777 


000004 


173070 




BIS 


#BIT2,®TCSR 


;SET MAINTENANCE WRAP 


2107 


007262 


005000 








CLR 


RO 


;CLEAR A TIMER 


2108 


007264 


005077 


173064 






CLR 


@TBUF 


;LDAD TRANSMIT BUFFER 


2109 


007270 


032777 


004000 


173050 


WACTV: 


BIT 


#BIT1 1 ,@RCSR 


;TEST RCVR ACTIVE BIT 


2110 


007276 


00 1 006 








BNE 


2$ 


;BR IF SET 


211 1 


007300 


005200 








INC 


RO 


; INCREMENT TIMER IF NOT SET 


2112 


007302 


001372 








BNE 


WACTV 


;CONTINUE WAIT IF TIME REMAINS 


2113 
2114 


007304 


042777 


000004 


173040 




BIC 


#BIT2,®TCSR 


JCLEAR MAINTENANCE BIT 


2115 
2116 


007312 


104063 








ERROR 


63 


;RCVR ACTIVE DID NOT SET WHILE RECEIVING 


2117 


007314 


000005 






2$: 


RESET 






2118 


007316 


032777 


004000 


173022 




BIT 


#BIT1 1 ,@RCSR 


JVERIFY "INIT" CLEARS RCV ACTIVE 


2119 


007324 


001401 








BEO 


3$ 




2120 


















2121 


007326 


1041 15 








ERROR 


115 


JINIT DID NOT CLEAR RCV ACTIVE 


2122 


















2123 


007330 


005000 






3$: 


CLR 


RO 


;CLEAR A TIMER 


2124 


007332 


052777 


000004 


173012 




BIS 


#BIT2,@TCSR 


;SET MAINTENANCE WRAP 


2125 


007340 


062700 


000000 




WT: 


ADD 


#0,R0 


;WAIT AT LEAST ONE BIT TIME 


2126 


007344 


005200 








INC 


RO 




2127 


007346 


001374 








BNE 


WT 




2128 


007350 


033777 


004000 


172770 




BIT 


BIT11 ,@RCSR 


; VERIFY RCV ACTIVE STILL CLEAR 


2129 


007356 


001404 








BEO 


4$ 


;BR IF CLEAR 


2130 
2131 


007360 


042777 


000004 


172764 




BIC 


/l'BIT2,®TCSR 


;CLEAR MAINTENANCE WRAP 


2132 


007366 


1041 16 








ERROR 


116 


;RCV ACTIVE WITHOUT "START" BIT 


2133 


















2134 


007370 


005000 






4$: 


CLR 


RO 


;CLEAR TIMER 


2135 


007372 


005077 


172756 






CLR 


@TBUF 


;LOAD TRANSMIT BUFFER 


2136 


007376 


105777 


172744 




WDONE: 


TSTB 


fRCSR 


;CHECK FOR RECEIVER DONE 


2137 


007402 


100406 








BMI 


5$ 


;BR, IF DONE 


2138 


007404 


005200 








INC 


RO 


; INCREMENT TIMER, IF NOT DONE 


2139 


007406 


001373 








BNE 


WDONE 


;CONTINUE WAIT IF TIME REMAINS 


2140 


007410 


042777 


000004 


172734 




BIC 


#BIT2,@TCSk 


;CLEAR MAINTENANCE BIT 


2141 


007416 


104064 








ERROR 


64 




2142 
















;RECEIVER DONE NEVER SET 


2143 


















2144 


007420 


032777 


004000 


172720 


5$: 


BIT 


tiBll-i 1 ,@RCSR 


;CHECK FOR RCVR ACTIVE CLEAR 


2145 


007426 


001404 








BEO 


6$ 


;BR, IF CLEAR 


2146 


007430 


042777 


000004 


172714 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2147 


007436 


104065 








ERROR 


65 




2148 
















;RCVR ACTIVE DID NOT CLEAR WITH RCVR DONE 


2149 


















2150 


007440 


000005 






6$: 


RESET 




;CLEAR DONE WITH RESET 


2151 


007442 


105777 


172700 






TSTB 


#RCSR 


; CHECK FOR DONE CLEAR 


2152 


007446 


001404 








BEO 


7$ 




2153 


















2154 


007450 


042777 


000004 


172674 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2155 


007456 


104066 








ERROR 


66 





•MAIN. MACY11 30A{1052) 19-APR-78 1t:44 PAGE 52 SEQ0052 

CZDLDC.P11 19-APR-7a 11:41 T30 TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 

2156 ; RESET DID NOT CLEAR RCVR DONE 

2157 

2158 007460 042777 000004 172660 7$: BIC #BIT2,®RCSR iCLEAR MAINTENANCE BIT 

2159 007466 000400 BR TST31 ; BR TO NEXT TEST 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 53 

T30 TEST THAT RCVR ACTIVE (11) a 



DONE (7) SET & CLEAR PROPERLY 



SEQ 0053 



2160 








2161 








2162 








2163 








2164 








2165 


007470 


000004 




2166 


007472 


000005 




2167 


007474 


052777 


000001 


2168 


007502 


052777 


000004 


2169 


007510 


005077 


172640 


2170 


007514 


105777 


172626 


2171 


007520 


100375 




2172 


007522 


032777 


000001 


2173 


007530 


001401 




2174 








2175 


007532 


1041 17 




2176 








2177 


007534 


052777 


000001 


2178 


007542 


105777 


172600 


2179 


007546 


001404 




2180 


007550 


042777 


000004 


2181 


007556 


104067 




2182 








2183 








2184 








2185 








2166 








2187 








2188 








2189 


007560 


000004 




2190 


007562 


000005 




2191 


007564 


052777 


000004 


2192 


007572 


005077 


172556 


2193 


007576 


105777 


172544 


2194 


007602 


100375 




2195 


007604 


01 7700 


172540 


2196 


007610 


042777 


000004 


2197 


007616 


105777 


172524 


2198 


007622 


001401 




2199 


007624 


104070 




2200 









« * i4> * « i|< :ti * iti 



;*TEST 31 
TST31 



* iX « i|< >|i * .(c 



TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG 



172644 
172642 



172604 2$: 



SCOPE 






RESET 




•.CLEAR EVERYTHING 


BIS 


#BIT0,@RCSR 


;SET RDR ENABLE 


BIS 


A'BIT2,@TCSR 


;SET MAINTENANCE WRAP 


CLR 


PTBUF 


; LOAD TRANSMITTER 


TSTB 


®RCSR 


;WAIT FOR RECEIVER DONE 


BPL 


1$ 




BIT 


#BITO,@RCSR 


'.VERIFY RCV ACTIVE CLEARED RDR ENABLE 


BEQ 


2$ 


;BR IF CLEAR 


ERROR 


117 


•,RDR ENABLE NOT CLEARED WITH RCV ACTIVE 


BIS 


#BITO,@RCSR 


•.CLEAR DONE BY SETTING RDR ENABLE 


TSTB 


@RCSR 


•.CHECK FOR DONE CLEAR 


BEQ 


TST32 


;BR, IF CLEAR TO NEXT TEST 


BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


ERROR 


67 








; SETTING RDR ENABLE DID NOT CLEAR RCVR DONE 



•.♦TEST 32 

; ■ i|< 4ci|i « 4< K< 

TST32 



TEST THAT READING RBUF CLEARS RECEIVER DONE 



SCOPE 






RESET 




•.CLEAR EVERYTHING 


BIS 


#BIT2,®TCSR 


;SET MAINTENANCE WRAP 


CLR 


®TBUF 


JLOAD TRANSMITTER 


TSTB 


@RCSR 


;WAIT FOR RECEIVER DONE 


BPL 


1$ 




MOV 


@RBUF,RO 


JREAD RECEIVE BUFFER 


BIC 


)^BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


TSTB 


©RCSR 


;CHECK FOR RECEIVE DONE CLEAR 


BEO 


TST33 


;BR, IF CLEAR TO NEXT TEST 


ERROR 


70 


; READING RBUF DID NOT CLEAR RCVR DONE 



.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 54 

CZDLDC.P11 19~APR-78 11141 T32 TEST THAT READING RBUF CLEARS RECEIVER DONE 



sm 00S4 



2201 


















2202 


















2203 














**4i>|i***«4i*4r>t>*»>4>4i4>*4c**i|i**4c*>«i**4>*****4<*4i***4i*4i>|e*****« 


2204 










;*TEST 


33 


TEST THAT RCVR 


INTERRUPTS ONLY WHEN ENABLED 


2205 














2206 


007626 


000004 






TST33: 


SCOPE 






2207 


007630 


042777 


000100 


172514 




BIC 


)yBIT6,@TCSR 


;DISABLE TRANSMIT INTERRUPTS 


2208 


007636 


042777 


0001 00 


1 72502 




BIC 


#BIT6,@RCSR 


jDISABLE RECEIVER INTERRUPTS 


2209 


007644 


052777 


000004 


172500 




BIS 


#BIT2,®TCSR 


;SET MAINTENANCE WRAP 


221 


007652 


01 7703 


1 72500 






MOV 


©RVECT , R3 


;SAVE RECEIVE VECTOR 


221 1 


007656 


01 2777 


007714 


1 72472 




MOV 


#2$,@RVECT 


; POINT RCV VECTOR TO ERROR REPORT 


221 2 


007664 


004737 


01 2242 






USR 


PCWRPSW 


;SET PSW TO PRIORITY 3 


2213 


007670 


0001 40 










.WORD 140 




2214 


007672 


005077 


1 72456 






CLR 


@TBUF 


;SEND A CHARACTER 


2215 


007676 


105777 


1 72444 




1$: 


TSTB 


@RCSR 


;WAIT FOR RECEIVER DONE 


221 6 


007702 


1 00375 








BPL 


1$ 




221 7 


007704 


042777 


000004 


172440 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2218 


007712 


000405 








BR 


3$ 


•.CONTINUE TEST 


221 9 
2220 


007714 


042777 


000004 


172430 


2$: 


BIC 


#BIT2,®TCSR 


;CLEAR MAINTENANCE BIT 


2221 


007722 


022626 








CMP 


(SP)+,{SP)+ 


; RESTORE SP AFTER INTERRUPT 


2222 


007724 


1 04071 








ERROR 


71 




2223 
















•.RECEIVER INTERRPUTS WITH INT. ENABLE 


2224 


















2225 


007726 


01 2777 


007754 


172422 


3$: 


MOV 


#4$,i>RVECT 


; POINT RCV VECTOR TO END OF TEST 


2226 


007734 


052777 


000100 


172404 




BIS 


#BIT6,i>RCSR 


; ENABLE RCV INTERRUPTS 


2227 


007742 


000240 








NOP 




;GIVE ANY INTERRUPTS TIME 


2228 


007744 


042777 


000004 


172400 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2229 


007752 


104072 








ERROR 


72 




2230 
















JRCVR DID NOT INTERRUPT 


2231 


















2232 


007754 


042777 


000100 


172364 


4S: 


BIC 


/5'BIT6,®RCSR 


JDISABLE INTERRUPTS 


2233 


007762 


042777 


000004 


17236?. 




BIC 


#BIT2,@>TCSR 


;CLEAR MAINTENANCE BIT 


2234 


007770 


022626 








CMP 


(SP) + ,(SP)-f 


; RESTORE SP AFTER INTERRUPT 


2235 


007772 


010377 


172360 






MOV 


R3,#RVECT 


; RESTORE RECEIVE VECTOR 



.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 55 



SEO 0055 



C2DLDC 


P1 1 


19-APR-7a 


11 :41 




T33 


TEST 


THAT RCVR INTERRUPTS ONLY WHEN ENABLED 


2236 


















2237 


















2238 
















2239 










;*TEST 


34 


TEST THAT RCVR 


INTERRUPTS DO NOT OCCUR WHEN DISABLED 


2240 










• ; *»iti>|i<|> 


****>)(* 






2241 


007776 


000004 






TST34: 


SCOPE 






2242 


010000 


000005 








RESET 




;CLEAR EVERYTHING 


2243 


010002 


004737 


012242 






dSR 


PC.WRPSW 


;SET PSW TO PRIORITY 7 


2244 


010006 


000340 










.WORD 340 




2245 


010010 


01 7703 


172342 






MOV 


®RVECT,R3 


;SAVE RECEIVE VECTOR 


2246 


010014 


012777 


010054 


172334 




MOV 


#2$,@RVECT 


; POINT RCVR VECTOR TO ERROR REPORT 


2247 


010022 


052777 


000004 


172322 




BIS 


#BIT2,@TCSR 


;SET MAINTENANCE WRAP 


2248 


010030 


005077 


172320 






CLR 


@TBUF 


;SEND A CHARACTER 


2249 


010034 


105777 


172306 




1$: 


TSTB 


@RCSR 


JWAIT FOR RECEIVER DONE 


2250 


010040 


100375 








BPL 


1$ 




2251 


010042 


052777 


000100 


172276 




BIS 


#BIT6,®RCSR 


; ENABLE INTERRUPTS 


2252 


010050 


000240 








NOP 




;GIVE TIME FOR INTERRUPT 


2253 


010052 


000405 








BR 


3$ 


;CONTINUE TEST 


2254 


010054 


042777 


000004 


172270 


2$: 


BIC 


#BIT2.®TCSR 


;CLEAR MAINTENANCE BIT 


2255 


010062 


022626 








CMP 


(SP)+.(SP)-l- 


;RESTORE SP AFTER INTERRUPT 


2256 


010064 


104073 








ERROR 


73 




2257 
















;RCVR INTERRUPTS AT PRIORITY 7 


2258 


















2259 


010066 


042777 


000100 


172252 


3$: 


BIC 


/fBITB.^RCSR 


;CLEAR INTERRUPT ENABLE 


2260 


010074 


01 2777 


010122 


172254 




MOV 


/S'4$,@RVECT 


; POINT RCVR VECTOR TO ERROR REPORT 


2261 


010102 


004737 


012242 






USR 


PC.WRPSW 


;SET PSW TO PRIORITY 3 


2262 


010106 


000140 










.WORD 140 




2263 


010110 


000240 








NOP 




;GIVE TIME FOR ANY INTERRUPT 


2264 


0101 12 


042777 


000004 


172232 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2265 


010120 


000405 








BR 


5$ 


;BR TO END OF TEST, IF NO INTERRUPT 


2266 


















2267 


010122 


042777 


000004 


172222 


4$: 


BIC 


#BIT2.#TCSR 


;CLEAR MAINTENANCE BIT 


2268 


010130 


022626 








CMP 


(SP)+, (SP)+ 


;RESTORE SP AFTER INTERRUPT 


2269 


010132 


104074 








ERROR 


74 




2270 
















;RCVR INTERRUPT REQUEST PASSED WITH B2T6 


2271 


010134 


010377 


172216 




5$: 


MOV 


R3,©RVECT 


; RESTORE RECEIVE VECTOR 
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SEQ 0056 



2272 


















2273 


















2274 


















2275 










; *TEST 


35 


TEST RECEIVER 


FOR DOUBLE INTERRUPTS 


2276 










TST35: 




2277 


01 01 40 


000004 






SCOPE 






2278 


01 01 42 


000005 








RESET 




;CLEAR EVERYTHING 


2279 


01 01 44 


01 7703 


1 72206 






MOV 


©RVECT ,R3 


;SAVE RECEIVE VECTOR 


2280 


0101 50 


01 7704 


1 72204 






MOV 


@RPSW, R4 


;SAVE RECEIVE PSW VECTOR 


2281 


01 01 54 


01 2777 


01 0236 


1 721 74 




MOV 


#2$ ,@RVECT 


; POINT RCV VECTOR TO CONTINUE TEST 


2282 


1 01 62 


01 2777 


000340 


1 721 70 




MOV 


#340 ,@>RPSW 


;SET PRIORITY TO 7 AFTER INTERRUPT 


2283 


01 01 70 


004737 


01 2242 






JSR 


PC , WRPSW 


;SET PSW TO PRIORITY 3 


2284 


01 01 74 


0001 40 










.WORD 140 




2285 


01 01 76 


052777 


000004 


1 721 46 




BIS 


#BIT2,®TCSR 


;SET MAINTENANCE WRAP 


2286 


01 0204 


005077 


1 72144 






CLR 


PTBUF 


;SEND A CHARACTER 


2287 


010210 


1 05777 


1 721 32 




1$: 


TSTB 


@RCSR 


;WAIT FOR RCVR DONE 


2288 


01 0214 


1 00375 








BPL 


1$ 




2289 


1 02 1 6 


042777 


000004 


1 721 26 




BIC 


#BIT2 ,®TCSR 


jCLEAR MAINTENANCE BIT 


2290 


01 0224 


052777 


000100 


1721 14 




BIS 


#BIT6.@RCSR 


; ENABLE RCV INTERRUPTS 


2291 


01 0232 


000240 








NOP 




jGIVE SOME TIME 


2292 


















2293 


01 0234 


1 04075 








ERROR 


75 




2294 
















;RCVR INTERRUPT DID NOT OCCUR 


2295 


















2296 


01 0236 


022626 






2$: 


CMP 


(SP)+,(SP)+ 


;RESTORE SP AFTER INTERRUPT 


2297 


010240 


01 2777 


010276 


1721 10 




MOV 


#3$,®RVECT 


; POINT RCV VECTOR TO ERROR REPORT 


2298 


010246 


004737 


012242 






JSR 


PC, WRPSW 


;RESET PSW TO PRIORITY 3 


2299 


010252 


000140 








.WORD 


<yi40 




2300 


010254 


000240 








NOP 




;GIVE SOME TIME 


2301 


010256 


042777 


000100 


172062 




BIC 


4i'BIT6,@RCSR 


;CLEAR INTERRUPT ENABLE 


2302 


010264 


010377 


172066 






MOV 


R3,©RVECT 


{RESTORE RECEIVE VECTOR 


2303 


010270 


01 0477 


172064 






MOV 


R4,&RPSW 


; RESTORE RECEIVE PSW VECTOR 


2304 


010274 


000402 








BR 


4$ 


;BR TO END OF TEST 


2305 


















2306 


010275 


022626 






3$: 


CMP 


(SP)+,(SP)+ 


; RESTORE SP AFTER INTERRUPT 


2307 


010300 


104076 








ERROR 


76 




2308 
















{RECEIVER RE-INTERRUPTED 


2309 


010302 


010377 


172050 




4$: 


MOV 


R3,9RVECT 


{RESTORE RECEIVE VECTOR 
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2310 
231 1 
2312 



2313 










{♦TEST 


36 


TEST THAT RCVR 


INTERRUPT CLEARS BY READING RBUF 


2314 










; 






2315 


010306 


000004 






TST36: 


SCOPE 






2316 


010310 


000005 








RESET 




{CLEAR EVERYTHING 


2317 


010312 


004737 


012242 






JSR 


PC, WRPSW 


{SET PSW PRIORITY TO 7 


2318 


010316 


000340 










.WORD 340 




2319 


010320 


017703 


172032 






MOV 


@RVECT,R3 


{SAVE RECEIVE VECTOR 


2320 


010324 


01 2777 


010412 


172024 




MOV 


#2$,@RVECT 


{POINT RCV VECTOR TO ERROR REPORT 


2321 


010332 


052777 


000100 


172006 




BIS 


#BIT6,@RCSR 


{SET RCVR INTERRUPT ENABLE 


2322 


010340 


052777 


000004 


172004 




BIS 


#BIT2,@TCSR 


{SET MAINTENANCE WRAP 


2323 


010346 


005077 


172002 






CLR 


@TBUF 


{SEND A CHARACTER 


2324 


010352 


105777 


171770 




1$: 


TSTB 


@RCSR 


{WAIT FOR DONE (INTERRUPT) 


2325 


010356 


100375 








BPL 


1$ 




2326 


010360 


042777 


000004 


171764 




BIC 


#BIT2,@TCSR 


{CLEAR MAINTENANCE BIT 


2327 


010366 


005077 


171756 






CLR 


®RBUF 


{READ RBUF TO CLEAR PENDING INTERRPUT 


2328 


010372 


004737 


012242 






JSR 


PC, WRPSW 


{SET PSW TO PRIORITY 3 


2329 


010376 


000140 










.WORD 140 




2330 


010400 


000240 








NOP 




{ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 


2331 


010402 


042777 


000100 


171736 




BIC 


#BIT6,@RCSR 


{NO INTERRUPT-CLEAR INT. ENABLE 


2332 


010410 


000402 








BR 


3$ 




2333 


















2334 


010412 


022626 






2$: 


CMP 


(SP)+,(SP)+ 


{RESTORE SP AFTER INTERRUPT 


2335 


010414 


104077 








ERROR 


77 


{READING RBUF DID NOT CLEAR INTERRUPT 


2336 


















2337 


010416 


010377 


171734 




3$: 


MOV 


R3,»RVECT 


{RESTORE RECEIVE VECTOR 



2338 
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SEQ oose 



2339 


















2340 


















2341 










; ;**** 








2342 










!*TEST 


37 


TEST THAT RESET 


CLEARS RECEIVE INTERRUPT 


2343 










; ; * * ♦ * 




2344 


010422 


000004 






TST37: 


SCOPE 






2345 


010424 


000005 








RESET 




JCLEAR EVERYTHING 


2346 


010426 


004737 


012242 






JSR 


PCWRPSW 


;SET PSW TO PRIORITY 7 


2347 


010432 


000340 










.WORD 340 




2348 


01 0434 


01 7703 


171716 






MOV 


@RVECT,R3 


;SAVE RECEIVE VECTOR 


2349 


010440 


01 2777 


010520 


171710 




MOV 


#2$,@RVECT 


; POINT RCV VECTOR TO ERROR REPORT 


2350 


010446 


052777 


000100 


171672 




BIS 


#BIT6 ,@RCSR 


|SET RCV INTERRUPT ENABLE 


2351 


010454 


052777 


000004 


171670 




BIS 


)S'BIT2,(PTCSR 


;SET MAINTENANCE WRAP 


2352 


010462 


01 2777 


000377 


171664 




MOV 


#377,@TBUF 


jSEND AN ALL 1'S CHARACTER 


2353 


010470 


105777 


171652 




1$: 


TSTB 


@RCSR 


;WAIT FOR RCV DONE 


2354 


01 0474 


100375 








BPL 


1$ 




2355 


01 0476 


000005 








RESET 




;CLEAR RCV INTERRUPT & RBUF 


2356 


01 0500 


004737 


012242 






JSR 


PCWRPSW 


;SET PSW TO PRIORITY 3 


2357 


010504 


000140 










.WORD 140 




2358 


010506 


000240 








NOP 




; ALLOW TIME FOR AN ERRONEOUS INTERRUPT 


2359 


010510 


042777 


000100 


171630 




BIC 


#BIT6,®RCSf* 


;N0 INTERRUPT-CLEAR INT. ENABLE 


2360 


010516 


000402 








BR 


3$ 


; CONTINUE TEST 


2361 


















2362 


















2363 


010520 


022626 






2$: 


CMP 


(SP)+,(SP)+ 


; RESTORE SP AFTER INTERRUPT 


2364 


010522 


104100 








ERROR 


100 


; RESET DID NOT CLEAR RCVR INTERRUPT 


2365 


















2366 


010524 


01 0377 


171626 




3$: 


MOV 


R3,@RVECT 


; RESTORE RECEIVE VECTOR 
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SEQ 0059 



2DLDC 


PI 1 


19-APR-78 


1 1 :41 




T37 


TEST 


THAT RESET CLEARS 


RECEIVE INTERRUPT 


2367 


















2368 


















2369 
















2370 










;*TEST 


40 


TEST THAT THE 


OR" ERROR (BIT14) & "ERROR" (BIT15) CAN BE 


2371 














2372 


010530 


000004 






TST40: 


SCOPE 






2373 


010532 


032777 


002000 


170300 




BIT 


#BIT10,®SWR 


;IS THIS TEST ENABLED 


2374 


010540 


001432 








BEO 


TST41 


;IF NOT ENABLED, BR TO NEXT TEST 


2375 


010542 


000005 








RESET 




;CLEAR EVERYTHING 


2376 


01 0544 


052777 


000004 


171600 




BIS 


#BIT2,®TCSR 


;SET MAINTENANCE WRAP 


2377 


010552 


01 2700 


000003 






MOV 


#3,R0 


;SET CHARACTER COUNT TO SEND 3 CHAR. 


2378 


010556 


005077 


171572 




1$: 


CLR 


PTBUF 


;LOAD TRANSMIT BUFFER 


2379 


010562 


105777 


171564 




2$: 


TSTB 


@TCSR 


;WAIT FOR TRANSMIT DONE 


2380 


010566 


100375 








BPL 


2$ 




2381 


010570 


005300 








DEC 


RO 


; DECREMENT CHARACTER COUNT 


2382 


010572 


001371 








BNE 


1$ 


;BR IF ALL CHARACTERS NOT TRANSMITTED 


2383 


010574 


042777 


000004 


171550 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2384 


010602 


032777 


040000 


171540 




BIT 


#BIT14,@RBUF 


;TEST FOR "OR" ERROR FLAG 


2385 


010610 


001001 








BNE 


3$ 


;BR, IF SET 


2386 


010612 


104101 








ERROR 


101 




2387 
















;"0R» ERROR FLAG DID NOT SET 


2388 


















2389 


010614 


032777 


100000 


171526 


3S: 


BIT 


#BIT15,©RBUF 


;TEST "ERROR" FLAG 


2390 


010622 


001001 








BNE 


4$ 


;BR, IF SET 


2391 


010624 


104102 








ERROR 


102 




2392 
















; "ERROR" FLAG DID NOT SET WITH "OR" FLAG 


2393 


010626 








4$: 
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CZDLDC.P11 19-APR-78 11:41 T40 TEST THAT THE "OR" ERROR (BIT14) & "ERROR" (BIT15) CAN BE SET 



SEQ 0060 



2394 


















2395 


















2396 










. 






2397 










; *TEST 


41 


TEST THAT BREAK 


TRANSMITS ALL ZEROES 


2398 












******* 






2399 


01 0326 


000004 






TST41 : 


SCOPE 






2400 


010630 


032777 


000400 


170202 




BIT 


#BIT8,@SWR 


;IS BREAK FUNCTION TEST ENABLED? 


2401 


01 0636 


00 1 444 








BEO 


TST42 


;BR TO NEXT TEST, IF NOT ENABLED 


2402 


01 0640 


000005 








RESET 




-.CLEAR EVERYTHING 


2403 


010642 


052777 


000004 


171502 




BIS 


#BIT2,@TCSR 


;SET MAINTENANCE WRAP 


2404 


01 0650 


01 2777 


177777 


171476 




MOV 


#-1 ,@TBUF 


;TRANSMIT ALL ONES TO RCVR 


2405 


01 0656 


1 05777 


171464 




1$: 


TSTB 


®RCSR 


;WAIT FOR RCVR DONE 


2406 


01 0662 


100375 








BPL 


1$ 




2407 


01 0664 


005077 


171460 






CLR 


PRBUF 


;CLEAR DONE (LEAVING ALL ONLS IN RBUF) 


2408 


01 0670 


052777 


000001 


171454 




BIS 


#BITO,®iTCSR 


;TRANSMIT BREAK 


2409 


01 0676 


005000 








CLR 


RO 


.'CLEAR A TIMER 


2410 


010700 


1 1 7737 


171442 


001026 


2$: 




@RCSR , $BDDAT 


;WAIT FOR RCVR DONE 


241 1 


01 0706 


100406 








BMI 


C0NT41 


;BR IF DONE 


2412 


010710 


005200 








INC 


RO 


;IF NOT, INCREMENT TIMER 




010712 


00 1 372 








BNE 


2$ 


; BR IF TIME REMAINS 


2414 


















2415 


010714 


042777 


000005 


171430 




BIC 


#BIT0!BIT2,@TCSR 


ICLEAR MAINTENANCE & BREAK BITS 


2416 


010722 


104103 








ERROR 


103 


; BREAK DID NOT TRANSMIT ANYTHING 


2417 
2418 


010724 


105777 


171420 




C0NT41 : 


TSTB 


@RBUF 


;CHECK RECEIVE BUFFER FOR ZERO 


2419 


010730 


001404 








BEO 




;BR, IF ZERO 


2420 


010732 


042777 


000005 


171412 




BIC 


#BIT01BIT2,@TCSR 


JCLEAR MAINTENANCE & BREAK BITS 


2421 
2422 


010740 


104103 








ERROR 


103 


•.BREAK DID NOT TRANSMIT ALL ZEROES 


2423 


















2424 


010742 


042777 


000005 


171402 


3$: 


BIC 


#BIT0!BIT2,@TCSR 


; CLEAR MAINTENANCE & BREAK BITS 
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2425 


















2426 


















2427 
















2428 










;*TEST 


42 


TEST THAT "FR" ERROR CAN BE SET DURING BREAK 


2429 
















2430 


010750 


000004 






TST42: 


SCOPE 






2431 


010752 


032777 


002000 


170060 




BIT 


#BIT10,@SWR 


; IS THE "TEST ERROR FLAGS" BIT SET 


2432 


010760 


001435 








BEO 


TST43 


;BR TO NEXT TEST, IF NOT SET 


2433 


010762 


032777 


000400 


170050 




BIT 


#BIT8,@SWR 


;IS BREAK FUNCTION ENABLED 


2434 


010770 


001431 








BEO 


TST43 


;BR TO NEXT TEST, IF NOT SET 


2435 


010772 


000005 








RESET 




;CLEAR EVERYTHING 


2436 


010774 


052777 


000004 


171350 




BIS 


#BIT2,@TCSR 


;SET MAINTENANCE WRAP 


2437 


01 1002 


052777 


000001 


171342 




BIS 


#BITO,@TCSR 


;SEND BREAK 


2438 


011010 


005077 


171340 






CLR 


@TBUF 


; TRANSMIT A CHARACTER TO TIME BREAK 


2439 


011014 


105777 


171326 




1$: 


TSTB 


@RCSR 


;WAIT FOR RCVR DONE 


2440 


01 1020 


100375 








BPL 


1$ 




2441 


01 1022 


042777 


000005 


171322 




BIC 


#BITO! BIT2,@TCSR 


;CLEAR MAINTENANCE & BREAK BITS 


2442 


01 1030 


032777 


020000 


171312 




BIT 


#BIT13,©RBUF 


; CHECK FOR FRAMING ERROR FLAG 


2443 


01 1036 


001001 








BNE 


2$ 


;BR, IF SET 


2444 


















2445 


01 1040 


104104 








ERROR 


104 




2446 
















; BREAK DID NOT SET FRAMING ERROR 


2447 


01 1042 


032777 


100000 


171300 


2$: 


BIT 


#BIT15,@RBUF 


;TEST "ERROR" FLAG 


2448 


01 1050 


001001 








BNE 


3$ 


;BR, IF SET 


2449 


















2450 


011052 


1041 14 








ERROR 


114 




2451 
















; "ERROR" FLAG DID NOT SET WITH "OR" 


2452 


01 1054 








3$: 
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SEQ 0062 



2453 


















2454 


















2455 










; ; *♦*♦ 


* « « * « « 4 « 






2456 










;*TEST 


43 


TEST DATA PATH 


FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP 


2457 










; ; 


««*«it<i|i«4<4i**4i4i*4i«4i4i4i4iit<*4iW4i 




2458 


Oil 054 


000004 






TST43: 


SCOPE 






2459 


















2460 


01 1056 


000005 








RESET 




jCLEAR EVERYTHING 


2461 


01 1060 


005001 








CLR 


R1 


;CLEAR REGISTER FOR TEST DATA 


2462 


01 1062 


052777 


000004 


171262 




BIS 


#BIT2,©TCSR 


;SET MAINTENANCE WRAP 


2463 
















; TRANSMIT A BINARY COUNT PATTERN - UP 


2464 
















;T0 THE BIT POSITION INDICATED BY THE 


2465 
















JCONTENTS OF LOCATION "SUSWR" 


2466 


011070 


005201 






1$: 


INC 


R1 


; INCREMENT THE TEST DATA 


2467 


01 1072 


010177 


171256 






MOV 


R1 ,@TBUF 


;XMIT A CHARACTER 


2468 


01 1076 


105777 


171244 




2$: 


TSTB 


@RCSR 


;WAIT FOR RECEIVER DONE 


2469 


01 1102 


100375 








BPL 


2$ 




2470 


01 1 104 


01 7702 


171240 






MOV 


@RBUF,R2 


;GET RECEIVED CHARACTER 


2471 


011110 


043701 


001112 






BIC 


®#$USWR,R1 


; CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 


2472 


011114 


020102 








CMP 


R1 ,R2 


; COMPARE DATA 


2473 


011116 


001003 








BNE 


3$ 


;BR, IF NON-COMPARE 


2474 


01 1120 


105701 








TSTB 


R1 


;TEST XMIT DATA FOR ZERO 


2475 


011122 


00141 1 








BEQ 


4$ 


;BR, IF FINISHED 


2476 


01 1 124 


000761 








BR 


1$ 


•.CONTINUE IF NOT 


2477 


01 1 126 


010137 


001024 




3$: 


MOV 


R1 ,$GDDAT 


; STORE THE EXPECTED DATA 


2478 


01 1 132 


01 0237 


001026 






MOV 


R2,$BDDAT 


;STORE RECEIVED DATA 


2479 


01 1136 


042777 


000004 


171206 




BIC 


#BIT2,@TCSR 


;CLEAR MAINTENANCE BIT 


2480 


01 1144 


104105 








ERROR 


105 


;DATA COMPARE DATA 


2481 


















2482 


011146 


042777 


000004 


1711 76 


4$: 


BIC 


#BIT2,#TCSR 


JCLEAR MAINTENANCE BIT 


2483 


















2484 


















2485 


















2486 










; 






2487 










;*TEST 


44 


TEST DATA PATHS 


USING WRAP CABLE 


2488 










; ; IK 4> 1* * » 1* « 4> »! * * « 




2489 


01 1 154 


000004 






TST44: 


SCOPE 






2490 


011156 


032777 


000200 


1 67654 




BIT 


#BIT7,©SWR 


;IS THIS TEST ENABLED 


2491 


01 1164 


001432 








BEQ 


TST45 


;BR, IF NOT 


2492 


01 1166 


000005 








RESET 




;CLEAR EVERYTHING 


2493 


01 1170 


005001 








CLR 


R1 


;CLEAR REGISTER FOR TEST DATA 


2494 
















; TRANSMIT A BINARY COUNT PATTERN - UP 


2495 
















;T0 THE BIT POSITION INDICATED BY THE 


2496 
















;CONTENTS OF LOCATION "$USWR" 


2497 


0111 72 


105201 






1$: 


INCB 


R1 


INCREMENT THE TEST DATA 


2498 


0111 74 


01 0177 


171154 






MOV 


R1 ,@TBUF 


;XMIT A CHARACTER 


2499 


011200 


005000 








CLR 


RO 


;CLEAR A TIMER 


2500 


01 1202 


105777 


171140 




2$: 


TSTB 


@RCSR 


;WAIT FOR RECEIVER DONE 


2501 


01 1206 


100403 








BMI 


3$ 


;BR IF DONE 


2502 


011210 


005200 








INC 


RO 


; INCREMENT TIMER IF NOT 


2503 


011212 


001373 








BNE 


2$ 


;BR IF TIME REMAINS 


2504 


















2505 


01 1214 


104064 








ERROR 


64 


; RECEIVER DONE NOT SET 


2506 


















2507 


011216 


017702 


171126 




3$: 


MOV 


i)RBUF,R2 
9#$USWR.R1 


;GET RECEIVED CHARACTER 


2508 


01 1222 


043701 


001112 






BIC 


; CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 
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TEST DATA PATHS USING WRAP CABLE 



SEQ 0063 



2509 


01 1226 


020102 




CMP 


R1 ,R2 


; COMPARE DATA 


2510 


01 1230 


001003 




BNE 


4$ 


;BR, IF NON-COMPARE 


251 1 


01 1232 


105701 




TSTB 


R1 


;TEST XMIT DATA FOR ZERO 


2512 


01 1234 


001406 




BEQ 


TST45 


;BR, IF FINISHED 


2513 


01 1236 


000755 




BR 


1$ 


JCONTINUE IF NOT 


2514 


01 1240 


010137 


001024 


4$: MOV 


R1 ,$GDDAT 


; STORE EXPECTED DATA 


2515 


01 1244 


01 0237 


001026 


MOV 


R2,$BDDAT 


; STORE RECEIVED DATA 


2516 














2517 


01 1250 


104106 




ERROR 


106 


.-DATA COMPARE ERROR «ITH 
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C2DLDC.P11 19-APR-78 11:41 T44 TEST DATA PATHS USING WRAP CABLE 



Seg 0084 



2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 



;*TEST 



01 1252 
011254 
01 1256 
01 1262 
01 1264 
01 1270 
011274 
01 1300 
01 1306 
011314 
01 1322 
01 1330 
01 1334 
01 1342 
01 1346 
01 1352 
01 1354 
01 1362 
01 1364 
01 1372 
01 1376 
01 1404 
011412 
01 1420 
01 1426 
01 1432 
01 1436 
01 1440 
01 1442 
01 1446 
01 1452 
01 1456 

01 1460 
01 1464 
01 1470 
01 1472 
01 1500 
01 1502 



000004 
000005 
004737 
000340 
01 7703 
01 7704 
01 7705 
01 7737 
01 7737 
01 7737 
012777 
005077 
01 2777 
005077 
005737 
001414 
032777 
001010 
01 2777 
005077 
052777 
052777 
052777 
052777 
005037 
005037 
005001 
005000 
012705 
005077 
004737 
000140 



012242 

171072 
171062 
171110 
171060 
171046 
171072 
01 1650 
171030 
01 1704 
171012 
002336 

000100 

01 1720 
171014 
000100 
000004 
000100 
000100 
01 1730 
01 1726 



01 1742 
170702 
012242 



062700 000000 
062700 000001 
001373 
032777 
001402 
000005 



01 1734 
01 1736 
01 1740 
171032 

171014 



167456 

171016 

171002 
170740 
170732 
170720 



000100 170652 



011504 104107 

011506 023737 011730 

011514 001402 

011516 000005 

011520 104110 



011726 3$: 



« « * DciX « « 

45 

SCOPE 

RESET 

USR 

.WORD 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

TST 

BEO 

BIT 

BNE 

MOV 

CLR 

BIS 

BIS 

BIS 

BIS 

CLR 

CLR 

CLR 

CLR 

MOV 

CLR 

JSR 



ADD 
ADD 
BNE 
BIT 
BEQ 
RESET 

ERROR 

CMP 
BEO 
RESET 



TEST DL11-W LOGIC BY EXERCISING THE XMIT , RECEIVE , & CLOCK(IF AVAILABLE) 



PC.WRPSW 
340 

@TVECT,R3 

@RVECT,R4 

@RTCVT,R5 

@>TPSW,STPSW 

@RPSW,SRPSW 

fiRTCPSW.SCPSW 

#XMIT,@TVECT 

@TPSW 

#RCV,i>RVECT 

@RPSW 

CTSTFL 

1$ 

#BIT6,i>SWR 
1$ 

#CLK,i)RTCVT 

©RTCPSW 

#BIT6,@LKS 

*BIT2,@TCSR 

#BIT6,@TCSR 

#BIT6,@RCSR 

XMTCNT 

RCVCNT 

R1 

RO 

#BUF,R2 
fTBUF 
PC.WRPSW 
.WORD 140 

#0,R0 
#1 ,R0 
2$ 

#BIT6,©TCSR 
3$ 



XMTCNT, RCVCNT 
4$ 



;CLEAR EVERYTHING 
;SET PRIORITY TO 7 

SAVE XMIT VECTOR 
SAVE RECEIVE VECTOR 
SAVE CLOCK VECTOR 
SAVE XMIT PSW VECTOR 
SAVE RECEIVE PSW VECTOR 
SAVE CLOCK PSW VECTOR 

POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE 

ALLOW INTERRUPTS AFTER XMIT INTERRUPT 

POINT RECEIVE VECTOR TO RECEIVE ROUTINE 

ALLOW INTERRPUTS AFTER RCVR INTERRUPT 

IS CONSOLE UNDER TEST? 

IF NOT SKIP CLOCK SET UP 

IF YES. ARE CLOCK TEST DISABLED? 

IF YES, SKIP CLOCK SET UP 

POINT VECTOR TO CLOCK INTERRUPT ROUTINE 

ALLOW INTERRUPTS AFTER CLOCK INTERRUPT 

ENABLE CLOCK INTERRUPTS 

SET MAINTENANCE WRAP 

ENABLE TRANSMIT INTERRUPTS 

ENABLE RECEIVE INTERRUPTS 

CLEAR XMIT INTERRUPT COUNTER 

CLEAR RCV INTERRUPT COUNTER 

CLEAR A REGISTER FOR TEST DATA USE 

CLEAR TIMER 

POINT R2 TO RECEIVE DATA STORAGE 
SEND FIRST CHARACTER 
SET PSW TO PRIORITY 3 

WAIT FOR INTERRUPTS 

ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME 

TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU 

•.FINISHED ENTIRE TRANSMISSION 

;BR. IF INTERRPUTS ARE DISABLED (FINISHED) 

;CLEAR EVERYTHING 

;TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST 

; COMPARE THE NUMBER OF INTERRUPTS 
;BR, IF EQUAL 
;CLEAR EVERYTHING 

RECEIVER DID NOT GET FULL TRANSMISSION 
IF RCVCNT=0, NO DATA RECEIVED 
IF RCVCNT = ?, THEN ( XMTCi'JT-RCVCNT) 
EQUALS THE NO. OF INTERRUPTS LOST. 



.MAIN. 


MACY1 1 


30A( 1052 


) 19-A 


C2DLDC 


P1 1 


19-APR-7a 


1 1 :41 


2574 








2575 








2576 


01 1522 


005737 


002336 


2577 


Oil 526 


001410 




2578 


01 1530 


032777 


000100 


2579 


01 1536 


001004 




2580 


01 1540 


005737 


01 1732 


2581 


01 1544 


001001 




2582 








2583 


01 1546 


1041 13 




2584 








2585 


01 1550 


000005 




2586 


01 1552 


01 2700 


01 1742 


2587 


01 1556 


005001 




2588 


01 1560 


022001 




2589 


01 1562 


001005 




2590 


01 1564 


105201 




2591 


01 1566 


032701 


000040 


2592 


01 1572 


001 772 




2593 


01 1574 


000405 




2594 








2595 


01 1576 


014037 


001026 


2596 


01 1602 


01 0137 


001024 


2597 


01 1606 


1041 1 1 




2598 








2599 


011610 


01 0377 


170546 


2600 


011614 


01 0477 


170536 


2601 


01 1620 


01 0577 


170564 


2602 


01 1624 


01 3777 


01 1734 


2603 


011632 


01 3777 


011736 


2604 


01 1640 


01 3777 


01 1740 


2605 


01 1646 


000501 




2606 








2607 


01 1650 


005237 


01 1730 


2608 


01 1654 


105201 




2609 


01 1656 


032701 


000040 


2610 


01 1662 


001404 




261 1 


01 1664 


042777 


000100 


2612 


01 1672 


000402 




2613 


01 1674 


1 1 0177 


170454 


2614 


01 1700 


005000 




2615 


01 1702 


000002 




2616 








2617 


01 1704 


01 7722 


170440 


2618 


011710 


005237 


01 1726 


2619 


011714 


005000 




2620 


011716 


000002 




2621 








2622 


01 1720 


005237 


011732 


2623 


01 1724 


000002 




2624 








2625 


01 1726 


000000 




2626 


01 1730 


000000 




2627 


01 1732 


000000 




2628 


01 1734 


000000 




2629 


01 1736 


000000 
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170532 
170520 
17054^ 



T45 


TEST 


DL11-W LOGIC BY 


EXERCISING THE XMI T , RECEIVE , & CLOCK(IF AV^ 


4$: 


TST 


CTSTFL 


;IS CONCOLE UNDER TEST? 




BEQ 


5$ 


;IF NOT, SKIP CLOCK COUNT CHECK 




BIT 


#BIT6,®SWR 


; IF YES, ARE CLOCK TESTS DISABLED? 




BNE 


5$ 


;IF YES, SKIP CLOCK COUNT CHECK 




TST 


CLKCNT 


;CHECK FOR AT LESST ONE CLOCK INTERRUPT 




BNE 


5$ 


;BR IF INTERRUPTS OCCURRED 




ERROR 


113 


;N0 CLOCK INTERRUPTS IN EXERCISER 


5$: 


RESET 




;CLEAR EVERYTHING 




MOV 


#BUF,R0 


;LOAD RECEIVED DATA POINTER TO RO 




CLR 


R1 


;SET UP REGISTER FOR COMPARISON 


COMP: 


CMP 


(R0)+,R1 


; COMPARE XMIT & RCV DATA 




BNE 


6$ 


;BR, IF NOT EQUAL 




INCB 


R1 


; INCREMENT COMPARE DATA 




BIT 


ifBITB.RI 


; FINISHED CHECKING RECEIVED DATA? 




BEQ 


COMP 


;BR, IF NOT FINISHED 




BR 


7$ 


;BR TO END OF TEST 


6$: 


MOV 


-(RO) ,$BDDAT 


; STORE BAD DATA FOR ERROR REPORT 




MOV 


R1 ,$GDDAT 


; STORE GOOD DATA FOR ERROR REPORT 




ERROR 


111 


;DATA COMPARE ERROR IN EXERCISER 


7$: 


MOV 


R3,@TVECT 


•.RESTORE XMIT VECTOR 




MOV 


R4,giiRVECT 


;RESTORE RECEIVE VECTOR 




MOV 


R5,@RTCVT 


•.RESTORE CLOCK VECTOR 




MOV 


STPSW, ®TPSW 


.•RESTORE XMIT PSW VECTOR 




MOV 


SRPSW, PRPSW 


;RESTORE RECEIVE PSW VECTOR 




MOV 


SCPSW,@RTCPSW 


; RESTORE CLOCK PSW VECTOR 




BR 


ENDEV 


;BR TO END OF DEVICE TEST ROUTINE 


XMIT: 


INC 


XMTCNT 


; INCREMENT XMIT INTERRUPT COUNTER 




INCB 


R1 


; INCREMENT TEST DATA 




BIT 


#BIT5,R1 


;SEND DATA PATTERN FROM 00 ™> 37 




BEQ 


XCONT 


;BR, IF MORE DATA TO BE SENT 




BIC 


#BIT6,@TCSR 


;CLEAR XMIT INTERRUPT ENABLE 




BR 


XRET 


; RETURN, WITHOUT SENDING ANY MORE DATA 


XCONT: 


MOVB 


R1 ,©TBUF 


;SEND NEW CHARACTER 


XRET: 


CLR 


RO 


jCLEAR TIMER 




RTI 




; RETURN 


RCV: 


MOV 


®>RBUF, (R2)-»- 


;STORE RECEIVED DATA 




INC 


RCVCNT 


; INCREMENT RCV INTERRUPT COUNTER 




CLR 


RO 


;CLEAR TIMER 




RTI 




; RETURN 


CLK: 


INC 


CLKCNT 


; INCREMENT CLOCK INTERRUPT COUNT 




RTI 




; RETURN 


RCVCNT: 


.WORD 







XMTCNT: 


.WORD 







CLKCNT: 


.WORD 







STPSW: 


.WORD 







SRPSW: 


.WORD 








SEO 00S5 
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2630 011740 000000 SCPSW: .WORD 

2631 011742 000044 BUF: .BLKW 44 
2632 
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SEO 0067 

LOGIC BY EXERCISING THE XMIT. RECEIVE, & CLOCK{IF AVAILABLE) SIMULTAN 



2633 


















2634 












;END OF 


DEVICE PASS ROUTINE 


2635 


















2636 


012052 


005037 


001002 




ENDEV: 


CLR 


STSTNM 


CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 


2637 


012056 


005237 


001076 






INC 


$DEVCT 


INCREMENT DEVICE COUNTER 


2638 


012062 


023737 


002342 


001076 




CMP 


TMP2,$DEVCT 


ALL DEVICES TESTED 


263S 


012070 


001404 








BEO 


$EOP 


BR, IF YES 


2640 


012072 


005037 


002336 






CLR 


CTSTFL 


CLEAR CONSOLE UNDER TEST FLAG 


2641 


012076 


000137 


003500 






JMP 


TSTDEV 


GO TEST NEXT DEVICE 


2642 


















2643 


















2644 


















2645 










.SBTTL 


END OF 


PASS ROUTINE 




2646 


















2647 












* 4c « Di >|< * 




2648 










;*INCREMENT THE 


PASS NUMBER ($PASS) 


2649 










;*IF THERES A MONITOR GO TO IT 




2650 










;*IF THERE ISN' 


T JUMP TO GOAGIN 




2651 


















2652 


012102 








$EOP: 








2653 


012102 


000004 








SCOPE 






2654 


0121 04 


005037 


001002 






CLR 


STSTNM 


;ZERO THE TEST NUMBER 


2655 


012110 


005237 


001074 






INC 


SPASS 


; INCREMENT THE PASS NUMBER 


2656 


012114 


042737 


100000 


001074 




BIC 


#100000, SPASS 


; DON'T ALLOW A NEG. NUMBER 


2657 


0121 22 


005327 








DEC 


(PC) + 


; LOOP? 


2658 


012124 


000001 






SEOPCT: 


.WORD 


1 




2659 


012126 


003015 








BGT 


SDOAGN 


;YES 


2660 


012130 


01 2737 








MOV 


(PC)+,@(PC)+ 


; RESTORE COUNTER 


2661 


012132 


000001 






SENDCT: 


.WORD 


1 




2662 


012134 


01 21 24 








SEOPCT 






2663 


012136 


104401 


012172 






TYPE 


, ENDMG 


;TYPE "END PASS" 


2664 


012142 


01 3700 


000042 




$GET42: 


MOV 


@#42,R0 


;GET MONITOR ADDRESS 


2665 


012146 


001405 








BEO 


SDOAGN 


; BRANCH IF NO MONITOR 


2666 


012150 


000005 








RESET 




;CLEAR THE WORLD 


2667 


012152 


004710 






SENDAD: 


dSR 


PC, (RO) 


;G0 TO MONITOR 


2668 


012154 


000240 








NOP 




;SAVE ROOM 


2669 


012156 


000240 








NOP 




; FOR 


2670 


012160 


000240 








NOP 




;ACT1 1 


2671 


012162 








SDOAGN: 








2672 


012162 


000137 








UMP 


@{PC)+ 


; RETURN 


2673 


012164 


01 2206 






SRTNAD: 


.WORD 


GOAGIN 




2674 


012166 


377 


377 


000 


SENULL: 


.BYTE 


-1,-1,0 


JNULL CHARACTER STRING 


2675 




012172 








.EVEN 






2676 


012172 


005015 


047105 


020104 


ENDMG: 


.ASCIZ 


<CR><LF>/END PASS / 


2677 


012200 


040520 


051523 


000040 
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SEQ 0068 



2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2593 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 



012206 
012212 
012220 
012222 
012226 

012232 
012236 

012242 
012244 
012246 
012252 



012254 
012256 
012262 
012266 
012274 

012276 
012300 
012302 



005037 
022737 
001004 
01 2706 
000137 

005037 
000137 

01 1646 
01 3616 
062746 
000002 



01 2600 
162700 
01 0037 
016637 
1041 12 

000000 
000000 
000000 



001076 
000001 



001000 
003622 



001100 
003424 



000004 
012302 
000002 



CLR 
CMP 
BNE 
MOV 
UMP 

CLR 
JMP 



SDEVCT 
#1 ,TMP2 
RSTRT 
#1000, SP 
TST1 

$UNIT 
BEGIN 



MOV(SP) ,-{SP) 

MOV i'(SP) + ,(SP) 

ADD #2,-(SP) 

RTI 



;CLEAR DEVICE COUNT 

;IS THERE ONLY ONE DEVICE UNDER TEST? 
;BR, IF NOT 

PRESET STACK POINTER 
;G0 DO ANOTHER PASS 

;CLEAR UNIT NUMBER 



COPY RETUN PC 

MOVE NEW PSW TO STACK 

ADJUST dSR RETURN 

POP RETURN PC & NEW PSW 



;SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
CATCH: 



MOV 
SUB 
MOV 
MOV 
ERROR 



(SP)+,RO 
#4,R0 
RO.BDVECT 
2(SP) .OLDPC 
112 



OLDPC: 
BDVECT: 



HALT 

.WORD 
.WORD 



;GET ADDRESS OF TRAP VECTOR -4- 4 
; ADJUST TO POINT TO TRAP ADDRESS 
; STORE TRAP OR INTERRUPT ADDRESS 
;GET PC WHERE TRAP OR INTERRUPT OCCURRED 
; REPORT ERROR 

; PROGRAM MUST BE RESTARTED AT THIS POINT 
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2705 
2706 
2707 
2708 
2709 
2710 
271 1 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
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END OF PASS ROUTINE 



kTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
fSAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 
fAND GO TO SERRTYP ON ERROR 

'THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



SEQ 0069 



*SW15= 
*SW13=1 
*SW09=1 
♦ CALL 
♦ 

; *** 



HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

LOOP IN ERROR 



ERROR N 



;;ERROR=EMT AND N=ERROR ITEM NUMBER 



012304 








$ error: 








012304 


105237 


001003 




7$: 


INCB 


$ERFLG 


;SET THE ERROR FLAG 


012310 


001775 








BEQ 


7$ 


; DON'T LET FLAG GO TO ZERO 


012312 


01 3777 


001002 


166522 




MOV 


$TSTNM, ©DISPLAY 


; DISPLAY TEST NUMBER AND ERROR FLAG 


012320 


005237 


001012 






INC 


$ERTTL 


; INCREMENT ERROR COUNT 


012324 


01 1637 


001016 






MOV 


(SP) ,$ERRPC 


;GET ADDRESS OF ERROR INSTRUCTION 


012330 


162737 


000002 


001016 




SUB 


#2,$ERRPC 




012336 


1 1 7737 


166454 


001014 




MOVB 


@$ERRPC.$ITEMB 


.•STRIP AND SAVE THE ERROR ITEM CODE 


012344 


032777 


020000 


166466 




BIT 


#BIT13,®'SWR 


;SKIP TYPEOUT IF SET 


012352 


001004 








BNE 


20$ 


;SKIP TYPEOUTS 


012354 


004737 


012466 






dSR 


PC,$ERRTYP 


;G0 TO USER ERROR ROUTINE 


012360 


104401 


001063 






TYPE 


,$CRLF 




012364 








20$: 








012364 


122737 


000001 


001106 




CMPB 


#APTENV,$ENV 


;RUNNING IN APT MODE 


012372 


001007 








BNE 


2$ 


;N0. SKIP APT ERROR REPORT 


012374 


1 1 3737 


001014 


012406 




MOVB 


$ITEMB,21$ 


;SET ITEM NUMBER AS ERROR NUMBER 


012402 


004737 


013170 






JSR 


PC,$ATY4 


{REPORT FATAL ERROR TO APT 


012406 


000 






21$: 


.BYTE 







012407 


000 








.BYTE 







012410 


000777 






22$: 


BR 


22$ 


;APT ERROR LOOP 


012412 


005777 


166422 




2$: 


TST 


®SWR 


;HALT ON ERROR 


012416 


100001 








BPL 


3$ 


jSKIP IF CONTINUE 


012420 


000000 








HALT 




;HALT ON ERROR! 


012422 


104406 






3$: 


CKSWR 




;TEST FOR CHANGE IN SOFT-SWR 


012424 


032777 


001000 


166406 




BIT 


#BIT09,@>SWR 


;LOOP ON ERROR SWITCH SET? 


012432 


001402 








BEO 


4$ 


;BR IF NO 


012434 


01 3716 


001010 






MOV 


$LPERR, (SP^ 


; FUDGE RETURN FOR LOOPING 


012440 


005737 


001060 




4$: 


TST 


$ESCAPE 


; CHECK FOR AN ESCAPE ADDRESS 


012444 


001402 








BEO 


5$ 


;BR IF NONE 


012446 


01 3716 


001060 






MOV 


$ESCAPE, (SP) 


; FUDGE RETURN ADDRESS FOR ESCAPE 


012452 








5$: 








012452 


022737 


012152 


000042 




CMP 


#$ENDAD.@#42 


;ACT-11 AUTO-ACCEPT? 


012460 


001001 








BNE 


6$ 


;BR IF NJ 


012462 


000000 








HALT 




;YES 


012464 








6$: 








012464 


000002 








RTI 




•.RETURN 
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2755 
















2756 








.SBTTL 


ERROR 


MESSAGE TVPEOUT ROUTINE 


2757 
















2758 
















2759 








;*THIS 


ROUTINE 


USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 


2760 








;*ERROR 


IS TO 


BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB) , 


2761 








;*AND REPORTS 


THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


2762 
















2763 


012466 






SERRTYP 








2764 


012466 


104401 


001063 




TYPE 


,$CRLF 


;; "CARRIAGE RETURN" a "LINE FEED" 


2765 


012472 


01 0046 






MOV 


RO,-(SP) 


; ;SAVE RO 


2766 


012474 


005000 






CLR 


RO 


; ;PICKUP THE ITEM INDEX 


2767 


012476 


153700 


001014 




BIS8 


f>#$ITEMB,RO 




2768 


012502 


001004 






BNE 


1$ 


;;IF ITEM NUMBER IS ZERO, JUST 


2769 














;;TYPE THE PC OF THE ERROR 


2770 


012504 


013746 


001016 




MOV 


$ERRPC,-(SP) 


;;SAVE SERRPC FOR TYPEOUT 


2771 














; ; ERROR ADDRESS 


2772 


012510 


104402 






TYPOC 




;;G0 TYPE—OCTAL ASCIKALL DIGITS) 


2773 


012512 


000426 






BR 


6$ 


; ;GET OUT 


2774 


012514 


005300 




1$: 


DEC 


RO 


;ADJUST THE INDEX SO THAT IT WILL 


2775 


012516 


006300 






ASL 


RO 


; WORK FOR THE ERROR TABLE 


2776 


012520 


006300 






ASL 


RO 




2777 


012522 


006300 






ASL 


RO 




2778 


012524 


062700 


001 146 




ADD 


#$ERRTB,RO 




FORM TABLE POINTER 


2779 


012530 


01 2037 


012540 




MOV 


(R0)+,2$ 




PICKUP "ERROR MESSAGE" POINTER 


2780 


012534 


001404 






BEO 


3$ 




SKIP T-. PEOUT IF NO POINTER 


2781 


012536 


104401 






TYPE 






TYPE THE "ERROR MESSAGE" 


2782 


012540 


000000 




2$: 


.WORD 







"ERROR MESSAGE" POINTER GOES HERE 


2783 


012542 


104401 


001063 




TYPE 


,$CRLF 




"CARRIAGE RETURN" & "LINE FEED" 


2784 


012546 


01 2037 


012556 


3$: 


MOV 


(R0)+,4$ 




PICKUP 'DATA HEADER" POINTER 


2785 


012552 


001404 






BEO 


5$ 




SKIP TYPEOUT IF 


2786 


012554 


104401 






TYPE 






TYPE THE "DATA HEADER" 


2787 


012556 


000000 




4$: 


.WORD 







"DATA HEADER" POINTER GOES HERE 


2788 


012560 


104401 


001063 




TYPE 


,$CRLF 




"CARRIAGE RETURN" & "LINE FEED- 


2789 


012564 


01 1000 




5$: 


MOV 


(RO) ,R0 




PICKUP "DATA TABLE" POINTER 


2790 


012566 


001004 






BNE 


7$ 




GO TYPE THE DATA 


2791 


012570 


01 2600 




6$: 


MOV 


{SP)+,RO 




RESTORE RO 


2792 


012572 


104401 


001063 




TYPE 


,$CRLF 




"CARRIAGE RETURN" & "LINE FEED" 


2793 


012576 


000207 






RTS 


PC 




RETURN 


2794 


012600 






7$: 










2795 


012600 


01 3046 






MOV 


@(RO)+,-(SP) 




SAVE @(R0)+ FOR TYPEOUT 


2796 


012602 


104402 






TYPOC 






GO TYPE— OCTAL ASCIKALL DIGITS) 


2797 


012604 


00571 






TST 


(RO) 




IS THERE ANOTHER NUMBER? 


2798 


012606 


001770 






BEO 


6$ 




BR IF NO 


2799 


012610 


104401 


012616 




TYPE 


.8$ 




TYPE TW0(2) SPACES 


2800 


012614 


000771 






BR 


7$ 




LOOP 


2801 


012616 


020040 


000 


8$: 


.ASCIZ 


/ / 




TW0(2) SPACES 


2802 




012622 






.EVEN 






2803 

















MAIN. 


MACY11 


30A(1052) 19-A 


:ZDLDC 


P11 


19-APR-78 


1 1 :41 


2804 








2905 








2806 








2807 








2808 








2809 


012622 


01 2737 


012762 


2810 


012630 


01 2737 


000340 


281 1 


012636 


01 0046 




2812 


012640 


01 0146 




2813 


012642 


01 0246 




2814 


012644 


01 0346 




2815 


01 2646 


01 0446 




2816 


012650 


01 0546 




2817 


012652 


01 7746 


166162 


2818 


012656 


01 0637 


012766 


2819 


012662 


012737 


012674 


2820 


012670 


000000 




2821 


012672 


000776 




2822 








2823 








2824 








2825 








2826 








2827 


012674 


01 2737 


012762 


2828 


012702 


01 3706 


012766 


2829 


012706 


01 2677 


166126 


2830 


012712 


01 2605 




2831 


012714 


01 2604 




2832 


012716 


01 2603 




2833 


012720 


01 2602 




2834 


012722 


01 2601 




2835 


012724 


01 2600 




2836 


012726 


01 2737 


012622 


2837 


012734 


01 2737 


000340 


2838 


012742 


005037 


012766 


2839 


012746 


005237 


012766 


2840 


012752 


001375 




2841 


012754 


104401 




2842 


012756 


01 2770 




2843 


012760 


000002 




2844 


012762 


000000 




2845 


012764 


000776 




2846 


012766 


000000 




2847 


012770 


005015 


047520 


2848 


012776 


000122 




2849 
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ERROR MESSAGE TYPEOUT ROUTINE 



.SBTTL POWER DOWN AND UP ROUTINE 
;*POWER DOWN ROUTINE 



SEO 0071 



«itr«4i*i«ii^4i«*i^*«ie>4i4i 



000024 
000026 



SPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#$ILLUP,@#PWRVEC 
#340,§'#PWRVEC+2 ; 
RO,-(SP) ; 
R1,-(SP) ; 
R2,-(SP) ; 
R3,-(SP) ; 
R4,-(SP) ; 
R5,-(SP) ; 
®>SWR,-(SP) ; 
SP,$SAVR6 ; 
#$PWRUP,®#PWRVEC 

.-2 ; 



;SET 
PRIO; 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 
;SET 



FOR FAST UP 
7 

RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
PSWR ON STACK 
SP 

UP VECTOR 



^if************************** 
;*POWER UP ROUTINE 



000024 SPWRUP: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

000024 MOV 
000026 MOV 
CLR 

1$: INC 

BNE 

TYPE 
SPWRMG: .WORD 

RTI 

SILLUP: HALT 
BR 

$SAVR6: 

042527 SPOWER: .ASCIZ <1 5X1 2>" POWER 



#$ILLUP,®#PWRVEC 

$SAVR6,SP ; 

(SP)+,@SWR ; 
(SP)+,R5 

(SP)+,R4 ; 

(SP)+,R3 ; 

(SP)+,R2 ; 

(SP)+,R1 ; 

(SP)+,R0 ; 
#$PWRDN,@#PWRVEC 

/S'340,@A'PWRVEC+2 ; 

$SAVR6 ; 

$SAVR6 ; 

1$ ! 



SPOWER 



.-2 



;SET FOR FAST DOWN 
GET SP 

POP STACK INTO @SWR 

POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
;SET UP THE POWER DOWN VECTOR 
PRI0:7 
JWAIT LOOP FOR THE TTY 
;WAIT FOR THE INC 
;0F WORD 
; REPORT THE POWER FAILURE 
; POWER FAIL MESSAGE POINTER 

;THE POWER UP SEQUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
;PUT THE SP HERE 
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SEO 0072 



















2852 








2853 








2854 
































285 








2859 








one? 
























ORKT 


1 3000 






onf^ 










1 3002 




A^ AAAn 


OOKK 


01 301 


00 1 052 




0RK7 










01 301 2 


A A nA 1 ft 
WW w*» 1 D 












on7n 


01 3014 


01 3746 


AAA A AVI 
UwUUUn 


0R71 


A 1 '3 A 'I A 


01 2737 


A 1 "a A/IA 


OQ7^ 


1 3026 






9R7^ 


1 3032 


1 2637 


A A AAA^ 
W W WW w*» 




0130 36 


A A A/1 O -1 

UU UmZ 1 




OD7K 


A 1 T A A 


02 2626 




on7K 


1 3042 


01 2637 


A A An A^ 
UU w wU't 


0H77 


1 3046 


000407 




on7P 








OQ7Q 


01 3050 


1 05737 


AA i AAO 
UU 1 UUa 


o«Rn 
oqq? 




001412 






1 3056 




AA 1 AAA 

UU 1 UUO 


ORRO 




00 1 404 




2883 


A f Q AfiR 




00 1010 


2884 


013074 


000420 




2885 


013076 


105037 


001003 


2886 


0131 02 


105237 


001002 


2887 


013106 


1 1 3737 


001002 


2888 


0131 14 


01 1637 


001006 


2889 


013120 


01 1637 


001010 


2890 


013124 


005037 


001060 


2891 


013130 


112737 


000001 


2892 


013136 


01 3777 


001002 


2893 


013144 


013716 


001006 


2894 


013150 


000002 




2895 









.SBTTL SCOPE HANDLER ROUTINE 

• i^**t,^im*i>***************>li********************<¥** **************** 

♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
♦AND LOAD THE TEST NUMBER ( STSTNM ) INTO THE DISPLAY REG. ( DISPLAY<7 : 0> ) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 08> 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



•■SW14 = 1 
i'SW09=1 
kCALL 



LOOP ON TEST 
LOOP ON ERROR 



166030 1$: 



001006 7$: 



001015 

165676 SQVER: 



SCOPE 


• " SCOPE'S 


lOT 


CKSWR 




• •TP'iT FflB rHANfiF TN ^flPT — CWO 
, , 1 t-J 1 rwn unMiNwic in our 1 onn 


BIT 


fyBIT14 @SWR 




BNE 


$OVER 


' ' YES I F SW1 4= 1 


"ART OF 


CODE FOR THE XOR 


TESTER/^ 


BR 


6$ 


••TF RllKlNTKIA DM TWF "ynO" TF*;TFR PHAWRF 






;;THIS INSTRUCTION TO A "NOP" (N0P*240) 


MOV 


@#ERRVEC SP) 


; ; SAVE THE CONTENTS OF THE ERROR VECTOR 


MOV 


iii5$,@#ERRVEC 


; ;SET FOR TIMEOUT 


TST 


@#177060 


; ;TIME OUT ON XOR? 


MOV 


(SP)+,#*ERRVEC 


;; RESTORE THE ERROR VECTOR 


BR 


SSVLAD 


; ;G0 TO THE NEXT TEST 


CMP 


(SP)+.(SP)+ 


;;CLEAR THE STACK AFTER A TIME OUT 


MOV 


(SP)+,@#ERRVEC 


;; RESTORE THE ERROR VECTOR 


BR 


7$ 


;;LOOP ON THE PRESENT TEST 


^*END OF 


CODE FOR THE XOR 


TESTER###/^# 


TSTB 


SERFLG 


:;HAS AN ERROR OCCURRED? 


BEO 


SSVLAD 


; ;BR IF NO 


BIT 


#BIT09,@SWR 


; ; LOOP ON ERROR? 


BEO 


4$ 


; ;BR IF NO 


MOV 


SLPERR.SLPADR 


;;SET LOOP ADDRESS TO LAST SCOPE 


BR 


SOVER 




CLRB 


SERFLG 


; ;ZERO THE ERROR FLAG 


INCB 


STSTNM 


; ; COUNT TEST NUMBERS 


MOVB 


STSTNM.STESTN 


; ;SET TEST NUMBER IN APT MAILBOX 


MOV 


(SP) .SLPADR 


;;SAVE SCOPE LOOP ADDRESS 


MOV 


(SP) .SLPERP 


;;SAVE ERROR LOOP ADDRESS 


CLR 


SESCAPE 


CLEAR THE ESCAPE FROM ERROR ADDRESS 


MOVB 


#1 ,$ERMAX 


;;ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 


MOV 


STSTNM, ©DISPLAY 


; ;DISPLAY TEST NUMBER 


MOV 


SLPADR, (SP) 


FUDGE RETURN ADDRESS 


RTI 




; ; FIXES OS 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 73 

SCOPE HANDLER ROUTINE 



SEQ 0073 



2896 


















2897 












******** 


******** K ***************************************** 


2898 










!SBTTL 


APT COMMUNICATIONS ROUTINE 


2899 










J ****** 


******** 


*****^t ************************************** ****** 


2900 


















2901 


013152 


1 1 2737 


000001 


013416 


SATYI : 


MOVB 


#1, SFFLG ;T0 REPORT FATAL ERROR 


2902 


013160 


1 1 2737 


000001 


013414 


$ATY3: 


MOVB 


#1, SMFLG ;T0 TYPE A MESSAGE 


2903 


013166 


000403 








BR 


SATYC 




2904 


013170 


1 1 2737 


000001 


013416 


SATY4: 


MOVB 


#1 , SFFLG jTO ONLY REPORT FATAL ERROR 


2905 


013176 








SATYC: 








2906 


013176 


01 0046 








MOV 


RO,-(SP) 


PUSH RO ON STACK 


2907 


013200 


01 0146 








MOV 


Rl .-(SP) 


PUSH Rl ON STACK 


2908 


013202 


105737 


013414 






TSTB 


SMFLG 


SHOULD TYPE A MESSAGE? 


2909 


013206 


001450 








BEO 


5$ 


IF NOT: BR 


2910 


013210 


122737 


000001 


001 106 




CMPB 


#APTENV.SENV 


OPERATING UNDER APT? 


291 1 


013216 


001031 








BNE 


3$ 


IF NOT: BR 


2912 


013220 


132737 


000100 


001 107 




BITB 


#APTSPOOL.$ENVM 


SHOULD SPOOL MESSAGE? 


2913 


013226 


001425 








BEO 


3$ 


IF NOT: BR 


2914 


013230 


01 7600 


000004 






MOV 


®4(SP) ,R0 


GET MESSAGE ADDRESS 


2915 


013234 


062766 


000002 


000004 




ADD 


#2,4(SP) 


BUMP RETURN ADDRESS 


2916 


013242 


005737 


001066 




1$: 


TST 


SMSGTYPE 


;SEE IF DONE W/ LAST XMISSION? 


2917 


013246 


001 375 








BNE 


IS 


IF not: WAIT 


2918 


013250 


01 0037 


001 102 






MOV 


RO.SMSGAD 


PUT ADDRESS IN MAILBOX 


2919 


013254 


105720 






2$: 


TSTB 


(RO)-f- 


FIND END OF MESSAGE 


2920 


013256 


001376 








BNE 


2$ 




2921 


013260 


163700 


001 102 






SUB 


$MSGAD,RO 


SUB STAsT OF MESSAGE 


2922 


013264 


006200 








ASR 


RO 


GET MESSAGE LENGTH IN WORDS 


2923 


013266 


01 0037 


001 104 






MOV 


RO,$MSGLGT ;PUT LENGTH IN MAILBOX 


2924 


013272 


01 2737 


000004 


001066 




MOV 


#4,$MSGTYPE 


TELL APT TO TAKE MESSAGE 


2925 


013300 


000413 








BR 


5$ 




2926 


013302 


01 7637 


000004 


013326 


3$: 


MOV 


®4(SP) ,4$ 


PUT MSG ADDR IN JSR LINKAGE 


2927 


013310 


062766 


000002 


000004 




ADD 


#2,4(SP) 


BUMP RETURN ADDRESS 


2928 


013316 


01 3746 


177776 






MOV 


177776, -(SP) 


PUSH 177776 ON STACK 


2929 


013322 


004737 


013420 






USR 


PC.STYPE 


CALL TYPE MACRO 


2930 


013326 


000000 






4$: 


.WORD 







2931 


013330 








5$: 








2932 


013330 


105737 


013416 




lOS: 


TSTB 


SFFLG 


SHOULD REPORT FATAL ERROR? 


2933 


013334 


001413 








BEO 


12$ 


IF NOT: BR 


2934 


013336 


005737 


001 106 






TST 


$ENV 


RUNNING UNDER APT? 


2935 


013342 


001410 








BEQ 


12$ 


IF not: BR 


2936 


013344 


005737 


001066 




11$: 


TST 


SMSGTYPE 


FINISHED LAST MESSAGE? 


2937 


013350 


001375 








BNE 


11$ 


IF not: wait 


2938 


013352 


01 7637 


000004 


001070 




MOV 


@4(SP) .SFATAL 


GET ERROR # 


2939 


013360 


005237 


001066 






INC 


SMSGTYPE 


TELL APT TO TAKE ERROR 


2940 


013364 


062766 


000002 


000004 


12$: 


ADD 


#2,4(SP) 


BUMP RETURN ADDRESS 


2941 


013372 


105037 


013416 






CLRB 


SFFLG 


CLEAR FATAL FLAG 


2942 


013376 


105037 


013415 






CLRB 


SLFLG 


CLEAR LOG FLAG 


2943 


013402 


105037 


013414 






CLRB 


$MFLG 


CLEAR MESSAGE FLAG 


2944 


013406 


01 2601 








MOV 


(SP)+,R1 


POP STACK INTO Rl 


2945 


013410 


012600 








MOV 


(SP)+,RO 


POP STACK INTO Rl 


2946 


013412 


000207 








RTS 


PC 


RETURN 


2947 


013414 


000 






SMFLG: 


.BYTE 







2948 


013415 


000 






SLFLG: 


.BYTE 


;LOG FLAG 


2949 


013416 


000 






SFFLG: 


.BYTE 


; FATAL FLAG 


2950 


















2951 




013420 








.EVEN 
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SEQ 0074 



2952 000200 APTSIZE-200 

2953 000001 APTENV=001 

2954 000100 APTSPOOl^IOO 

2955 000040 APTCSUPs040 
2956 
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APT COMMUNICATIONS ROUTINE 



SEQ 0075 



2957 




2958 




2959 




2960 




2961 




2962 




2963 




2964 




2965 




2966 




2967 




2968 




2969 




2970 




2971 




2972 




2973 




2974 




2975 


01 3420 


2976 


013424 


2977 


013426 


2978 


013430 


2979 


013432 


2980 


013434 


2981 


013440 


2982 


013446 


2983 


013450 


2984 


01 3456 


2985 


013460 


2986 


013464 


2987 


013470 


2988 


013472 


2989 


013500 


2990 


013502 


2991 


013504 


2992 


013506 


2993 


013510 


2994 


013512 


2995 


013516 


2996 


013520 


2997 


013524 


2998 


013526 


2999 


013532 


3000 


013534 


3001 


013536 


3002 


013540 


3003 


013542 


3004 


013546 


3005 


013550 


3006 


01 3554 


3007 


013560 


3008 


013562 


3009 




3010 


013566 


3011 


013572 


3012 


013574 



105737 
10.0002 
000000 
000430 
01 0046 
01 7600 
122737 
00101 1 
132737 
001405 
01 0037 
004737 
000000 
132737 
001003 
1 1 2046 
001005 
005726 
01 2600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001063 
105037 
000755 
004737 
123726 
001350 
01 3746 



.SBTTL TYPE ROUTINE 

*RQUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

*N0TE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



*CALLI 
*1) USING 



A TRAP INSTRUCTION 



000002 
000001 



000100 001107 



013470 
013160 



000040 001107 



000002 
00001 1 
000200 



013632 
001056 



105366 000001 
002770 





TYPE 


.MESADR 


;;MESADR IS FIRST ADDRESS OF AN ASCZZ STRING 


;*0R 










TYPE 








MESADR 






STYPE: 


TSTB 


$TPFLG 


; ; IS THERE A TERMINAL? 




BPL 


1$ 


; ;BR IF YES 




HALT 




;;HALT HERE IF NO TERMINAL 




BR 


3$ 


• ; LEAVE 


1$: 


MOV 


RO,-(SP) 


;SAVE RO 




MOV 


@'2(SP) ,R0 


■;GET ADDRESS OF ASCIZ STRING 




CMPB 


#APTENV,$ENV 


; RUNNING IN APT MODE 




BNE 


62$ 


;NO.GO CHECK FOR APT CONSOLE 




BITB 


#APTSPOOL.$ENVM 


; SPOOL MESSAGE TO APT 




BEQ 


62$ 


;NO,GO CHECK FOR CONSOLE 




MOV 


R0,61$ 


; SETUP MESSAGE ADDRESS FOR APT 




JSR 


PC,$ATY3 


; SPOOL MESSAGE TO APT 


61$: 


.WORD 





;MESSAGE ADDRESS 


62$: 


BITB 


#APTCSUP,$ENVM 


;APT CONSOLE SUPPRESSED 




BNE 


60$ 


;YES,SKIP TYPE OUT 


2$: 


MOVB 


(RO)+,-(SP) 


;PUSH CHARACTER TO BE TYPED ONTO STACK 




BNE 


4$ 


;BR IF IT ISN'T THE TERMINATOR 




TST 


(SP) + 


;IF TERMINATOR POP IT OFF THE STACK 


60$: 


MOV 


(SP)+,RO 


; RESTORE RO 


3$: 


ADD 


#2, (SP) 


; ADJUST RETURN PC 




RTI 




; RETURN 


4$: 


CMPB 


#Hr. (SP) 


; BRANCH IF <HT> 




BEO 


8$ 






CMPB 


#CRLF, (SP) 


; BRANCH IF NOT <CRLF> 




BNE 


5$ 






TST 


(SP) + 


;POP <CR><LF> EQUIV 




TYPE 




JTYPE A CR AND LF 




SCRLF 








CLRB 


SCHARCNT 


•.CLEAR CHARACTER COUNT 




BR 


2$ 


;GET NEXT CHARACTER 


5$: 


JSR 


PC,$TYPEC 


;G0 TYPE THIS CHARACTER 


6$: 


CMPB 


$FILLC, (SP)+ 


;IS IT TIME FOR FILLER CHARS.? 




BNE 


2$ 


;IF NO GO GET NEXT CHAR. 




MOV 


$NULL,-(SP) 


;GET # OF FILLER CHARS. NEEDED 








;AND THE NULL CHAR. 


7$: 


DECS 


KSP) 


;DOES A NULL NEED TO BE TYPED? 




BLT 


6$ 


;BR IF NO— GO POP THE NULL OFF OF STACK 




JSR 


PCSTYPEC 


;G0 TYPE A NULL 
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SEO 0076 



m 



3013 


013600 


105337 


013676 








DECS 


SCHARCNT 


;D0 NOT COUNT AS A COUNT 




3014 


013604 


000770 










BR 


7$ 


; LOOP 




3015 






















3016 












;H0RI20NTAL TAB 


PROCESSOR 






3017 






















3018 


013606 


1 1 2716 


000040 




8$: 


MOVB 


.(SP) 


; REPLACE TAB WITH SPACE 




3019 


013612 


004737 


013632 




9$: 


JSR 


PC, STYPEC 


;TYPE A SPACE 




3020 


013616 


132737 


000007 


013676 






BITB 


#7, SCHARCNT 


; BRANCH IF NOT AT 




3021 


013624 


001 372 










BNE 


9$ 


;TAB STOP 




3022 


013626 


005726 










TST 


(SP) + 


;POP SPACE OFF STACK 




3023 


013630 


000724 










BR 


2$ 


;GET NEXT CHARACTER 




3024 


01 3632 


105777 


165212 




STYPEC: 


TSTB 


@$TPS 


;WAIT UNTIL PRINTER IS READY 




3025 


013636 


100375 










BPL 


STYPEC 






3026 


013640 


1 1 6677 


000002 


165204 






MOVB 


2(SP) ,@$TPB 


;LOAD CHAR TO BE TYPED INTO DATA 


REG. 


3027 


01 3646 


1 22766 


00001 5 


000002 






CMPB 


#CR.2(SP) 


;IS CHARACTER A CARRIAGE RETURN? 




3028 


013654 


001003 










BNE 


1$ 


; BRANCH IF NO 




3029 


013656 


105037 


013676 








CLRB 


SCHARCNT 


; YES— CLEAR CHARACTER COUNT 




3030 


013662 


000406 










BR 


STYPEX 


;EXIT 




3031 


013664 


122766 


000012 


000002 


1$: 


CMPB 


#LF,2(SP) 


;IS CHARACTER A LINE FEED? 




3032 


013672 


001402 










BEQ 


STYPEX 


; BRANCH IF YES 




3033 


013674 


105227 










INCB 


{PC) + 


; COUNT THE CHARACTER 




3034 


013676 


000000 






Scharcnt: .word 





; CHARACTER COUNT STORAGE 




3035 


013700 


000207 






STYPEX: 


RTS 


PC 






3036 






















3037 












SBTTL 


BINARY 


TO OCTAL (ASCII) AND TYPE 




3038 






















3039 


















3040 












♦ THIS 


ROUTINE 


IS USED TO CHANGE 


A 16-BIT BINARY NUMBER TO A 6-DIGIT 


3041 












*QCTAL 


(ASCII) 


NUMBER AND TYPE IT. 




3042 












♦STYPOS-— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 


TO TYPE 


3043 












*CALL: 










3044 












* 


MOV 


NUM,-(SP) 


; NUMBER TO BE TYPED 




3045 














TYPOS 




JCALL FOR TYPEOUT 




3046 














.BYTE 


N 


;N=1 TO 6 FOR NUMBER OF DIGITS TO 


TYPE 


3047 














.BYTE 


M 


;M=1 OR 




3048 


















;; 1=TYPE LEADING ZEROS 




3049 


















; ;0=SUPPRESS LEADING ZEROS 




3050 






















3051 












*$TYPON—— ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE 


UST 


3052 












i-STYPOS OR STYPOC 






3053 












*CALL: 










3054 














MOV 


NUM,-(SP) 


;NUMBER TO BE TYPED 




3055 














TYPON 




;CALL FOR TYPEOUT 




3056 






















3057 












*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 




3058 












♦CALL: 










3059 












* 


MOV 


NUM.-(SP) 


;NUMBER TO BE TYPED 




3060 














TYPOC 




;CALL FOR TYPEOUT 




3061 






















3062 


013702 


01 7646 


000000 




$TYPOS: 


MOV 


@(SP),-(SP) 


; PICKUP THE MODE 




3063 


013706 


1 1 6637 


000001 


014125 






MOVB 


1(SP),$0FILL 


;LOAD ZERO FILL SWITCH 




3064 


013714 


1 1 2637 


014127 








MOVB 


(SP)+,$0M0DE+1 ; 


•.NUMBER OF DIGITS TO TYPE 




3065 


013720 


062716 


000002 








ADD 


#2,(SP) ; 


; ADJUST RETURN ADDRESS 




3066 


013724 


000406 










BR 


STYPON 






3067 


013726 


1 1 2737 


000001 


014125 


STYPOC: 


MOVB 


#1,S0FILL ; 


;SET THE ZERO FILL SWITCH 




3068 


013734 


112737 


000006 


014127 






MOVB 


#6,$0M0DE4-1 ; 


•SET FOR SIX(6) DIGITS 
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014124 STYPON: 



SEQ 0077 



3069 


013742 


1 1 2737 


000005 


3070 


013750 


01 0346 




3071 


013752 


01 0446 




3072 


013754 


01 0546 




3073 


013756 


1 1 3704 


014127 


3074 


0-13762 


005404 




3075 


013764 


062704 


000006 


3076 


013770 


1 1 0437 


014126 


3077 


013774 


1 1 3704 


014125 


3078 


014000 


01 6605 


000012 


3079 


014004 


005003 




3080 


014006 


006105 




3081 


014010 


000404 




3082 


014012 


006105 




3083 


014014 


006105 




3084 


014016 


006105 




3085 


014020 


01 0503 




3086 


014022 


006103 




3087 


014024 


105337 


014126 


3088 


014030 


100016 




3089 


014032 


042703 


177770 


3090 


014036 


001002 




3091 


014040 


005704 




3092 


014042 


001403 




3093 


014044 


005204 




3094 


014046 


052703 


000060 


3095 


014052 


052703 


000040 


3096 


014056 


1 1 0337 


014122 


3097 


014062 


104401 


014122 


3098 


014066 


105337 


014124 


3099 


014072 


003347 




3100 


014074 


002402 




3101 


014076 


005204 




3102 


0141 00 


000744 




3103 


014102 


012605 




3104 


014104 


01 2604 




3105 


014106 


01 2603 




3106 


0141 10 


016666 


000002 


3107 


0141 16 


01 2616 




3108 


014120 


000002 




3109 


014122 


000 




31 10 


014123 


000 




31 11 


014124 


000 




3112 


014125 


000 




3113 


014126 


000000 




3114 









SOCNT: 
SOFILL: 



MOVB 


#5, SOCNT 


MOV 


R3,-(SP) 


MOV 


R4,-(SP) 


MOV 


R5,-(SP) 


MOVB 


$0M0DE+1 .R4 


NEG 


R4 


ADD 


#6,R4 


MOVB 


R4,S0M0DE 


MOVB 


SOFILL, R4 


MOV 


12(SP) ,R5 


CLR 


R3 


ROL 


R5 


BR 


3$ 


ROL 


R5 


ROL 


R5 


ROL 


R5 


MOV 


R5,R3 


ROL 


R3 


DECB 


SOMODE 


BPL 


7$ 


BIC 


#177770. R3 


BNE 


4S 


TST 


R4 


BEQ 


5$ 


INC 


R4 


BIS 


#'0,R3 


BIS 


# ' .R3 


MOVB 


R3,8$ 


TYPE 


,8S 


DECB 


SOCNT 


BGT 


2S 


BLT 


6$ 


INC 


R4 


BR 


2$ 


MOV 


(SP)+.R5 


MOV 


(SP)+,R4 


MOV 


(SP)+,R3 


MOV 


2(SP) ,4(SP) 


MOV 


(SP)+,(SP) 


RTI 




.BYTE 





.BYTE 





.BYTE 





.BYTE 





.WORD 






;SET THE ITERATION COUNT 
ISAVE R3 
;SAVE R4 
iSAVE R5 

;GET THF NUMBER OF DIGITS TO TYPE 

;SUBTRACT IT FOR MAX. ALLOWED 
;SAVE IT FOR USE 
;GET THE ZERO FILL SWITCH 
; PICKUP THE INPUT NUMBER 
[CLEAR THE OUTPUT WORD 
[ROTATE MSB INTO "C 
;G0 DO MSB 
;FORM THIS DIGIT 



GET LSB OF THIS DIGIT 

TYPE THIS DIGIT? 

BR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

BR IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 

BR IF MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE. LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
[RETURN 

[STORAGE FOR ASCII DIGIT 
[TERMINATOR FOR TYPE ROUTINE 
[OCTAL DIGIT COUNTER 
[ZERO FILL SWITCH 
[NUMBER OF DIGITS TO TYPE 
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SEQ 007S 



3115 








] f 








3117 








3118 








I« 








3 1 20 








3121 








31 22 








3 1 23 
















3 1 25 








31 26 




022737 


AAA 1 7C 

uuu 1/0 






on 1 flTA 






0141 40 


1 nnn?! 


R4700 




0141 44 


1 1 77!! 




3 1 30 


0141 46 








KC 


04271 6 


1 77600 






022726 


AAnnn7 






UU 1 UD^ 




•31 


ni ^ 70 




UU 1 UOM 




014172 


00 
















1 f\AAn 1 

1 UHtU 1 






1 4200 


1 A >i ^ A 1 


1 4Db2 


-31 


A 1 An r\A 

W 1 M^U't 




A A A 1 7e 
U w U 1 / 




ni T 


1 F\ A A f\'^ 






01 421 2 


1 A >i y! A 1 
1 U H'4 U 1 


01 D 3 






AA CA/ie 
UU DUho 




O ^ 


1 4220 


A A C A /I C 






9 1 






31 45 


1 4226 


00375 












3147 


01 4230 


1 1 7746 






1 4234 


0427 1 6 


1 77KAn 


















OK 












02 1 627 


UUUU^w 




1 4244 


AA 1 A Ac: 
UU 1 UUD 






A 1 A*^ Af^ 


1 A AAH 1 


i 4dw0 


-31 KK 
^1 


ni ^o^fi 


AK 17 AC 
UO ,^ / UD 


AA AAAK 
UUUUUD 






000757 




•31 K7 








3158 








3159 


014260 


021627 


000015 


3160 


014264 


001 022 




3161 


014266 


005766 


000004 


3162 


014272 


001403 




3163 


014274 


01 5677 


000002 


3164 


014302 


062706 


000006 


3165 


014306 


104401 


001063 


3166 


014312 


123727 


001035 


3167 


014320 


001003 




3168 


014322 


012777 


000100 


3169 


014330 


000002 




3170 


014332 


004737 


013632 



.SBTTL TTY INPUT ROUTINE 



.ENABL LSB 



♦ ♦JSC********************************** 



J #**#*#***«•**********♦***♦********■(<***** 

♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

♦ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
♦WHEN OPERATING IN TTY FLAG MODE. 



000001 
164514 



SCKSWR: 


CMP 


(^SWREG.SWR 


; IS THE SOFT-SWR SELECTED? 




BNE 


1 5$ 


; BRANCH I F NO 




TSTB 


@$TKS 


JCHAR THERE? 




BPL 


15$ 


;IF NO, DON'T WAIT AROUND 




MOVB 


#$TKB,-(SP) 


;SAVE THE CHAR 




BIC 


#~C177, (SP) 


;STRIP-OFF THE ASCII 




CMP 


*7, (SP)+ 


; IS IT A CONTROL G? 




BNE 


15$ 


;N0, RETURN TO USER 




CMPB 


$AUT0B,#1 


;ARE WE RUNNING IN AUTO-MODE? 




BEQ 


15$ 


; BRANCH IF YES 




TYPE 


,$CNTLG 


;ECHO THE CONTROL-G ("G) 


$GTSWR: 


TYPE 


,$MSWR 


JTYPE CURRENT CONTENTS 




MOV 


SWREG,-(SP) 


;SAVE SWREG FOR TYPEOUT 




TYPOC 




;G0 TYPE—OCTAL ASCIKALL DIGITS) 




TYPE 


,$MNEW 


; PROMPT FOR NEW SWR 


19$: 


CLR 


-(SP) 


ICLEAR COUNTER 




CLR 


-(SP) 


;THE NEW SWR 


7$: 


TSTB 


@$TKS 


■,CHAR THERE? 




BPL 


7$ 


;IF NOT TRY AGAIN 




MOVB 


#$TKB,-(SP) 


;PICK UP CHAR 




BIC 


#"C177, (SP) 


;MAKE IT 7-BIT ASCII 


9$: 


CMP 


(SP),#25 


; IS IT A CONTROL-U? 




BNE 


10$ 


; BRANCH IF NOT 




TYPE 


,$CNTLU 


;YES. ECHO CONTROL-U (*U) 


20$: 


ADD 


(fBtSP 


; IGNORE PREVIOUS INPUT 




BR 


19$ 


;LET'S TRY IT AGAIN 


10$: 


CMP 


(SP) .#15 


;IS IT A <CR>? 




BNE 


16$ 


; BRANCH IF NO 




TST 


4(SP) 


;YES. IS IT THE FIRST CHAR? 




BEQ 


11$ 


; BRANCH IF YES 




MOV 


2(SP) ,i»SWR 


;SAVE NEW SWR 


11$: 


ADD 


#6,SP 


JCLEAR UP STACK 


14$: 


TYPE 


,$CRLF 


; ECHO <CR> AND <LF> 




CMPB 


$INTAG,#1 


; RE-ENABLE TTY KBD INTERRUPTS? 




BNE 


15$ 


; BRANCH IF NOT 




MOV 


#100,@$TKS 


; RE-ENABLE TTY KBD INTERRUPTS 


15$: 


RTI 




; RETURN 


16$: 


USR 


PC.STYPEC 


;ECHO CHAR 
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SEQ 0079 



3171 


014336 


021627 


000060 




CMP 


(SP) ,#60 


;CHAR < 0? 


3172 


014342 


002420 






BLT 


18$ 


;BRANCH IF YES 


3173 


014344 


021627 


000067 




CMP 


(SP) ,#67 


;CHAR > 7? 


3174 


014350 


003015 






BGT 


18$ 


; BRANCH IF YES 


31 75 


014352 


042726 


000060 




BIC 


#60, (SP)+ 


;STRIP-OFF ASCII 


3176 


014356 


005766 


000002 




TST 


2(SP) 


; IS THIS THE FIRST CHAR 


3177 


014362 


001403 






BEO 


17$ 


; BRANCH IF YES 


3178 


014364 


006316 






ASL 


(SP) 


;N0, SHIFT PRESENT 


3179 


014366 


006316 






ASL 


(SP) 


; CHAR OVER TO MAKE 


3180 


014370 


006316 






ASL 


(SP) 


; ROOM FOR NEW ONE. 


3181 


014372 


005266 


000002 


17$: 


INC 


2(SP) 


;KEEP COUNT OF CHAR 


3182 


014376 


056616 


177776 




BIS 


-2(SP).(SP) 


;SET IN NEW CHAR 


3183 


014402 


000707 






BR 


7$ 


;GET THE NEXT ONE 


3184 


014404 


104401 


001062 


18$: 


TYPE 


,$OUES 


•.TYPE ?<CR><LF> 


3185 


014410 


000720 






BR 


20$ 


; SIMULATE CONTROL-U 


3186 








.DSABL 


LSB 







3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
321 1 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 



014412 
014414 
014422 
014426 
014430 
014436 
014444 
014452 
014454 
014460 
014462 
014466 
014472 
01447C 
014500 
014502 
014510 
014512 
014520 
014522 
014530 



01 1646 
01 6666 
105777 
100375 
1 1 7766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000004 
164416 

164412 
177600 
000004 



164360 
177600 
000021 



000004 
000004 
000040 



1^^^■l^^^^^^^^^^^^,i,^^^^^^^^^^^l^^l^1l^^^^^■tH,1^^^■t^■^■t^■lt.^l^^^i^ 

♦THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 



RDCHR 

RETURN HERE 



;; INPUT A SINGLE CHARACTER FROM THE TTY 
;;CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 



m 



000004 
000004 
000023 



000140 
000175 
000004 



MOV 


(SP),-(SP) 


;PUSH DOWN THE PC 


MOV 


4(SP) ,2(SP) 


;SAVE THE PS 


TSTB 


®$TKS 


;WAIT FOR 


BPL 


1$ 


;A CHARACTER 


MOVB 


@$TKB,4{SP) 


;READ THE TTY 


BIC 


#'"C<177>,4(SP) 


;GET RID OF JUNK IF ANY 


CMP 


4(SP) ,#23 


;IS IT A CONTROL-S? 


BNE 




; BRANCH IF NO 


TSTB 


@$TKS 


•.WAIT FOR A CHARACTER 


BPL 


2$ 


;LOOP UNTIL ITS THERE 


MOVB 


@$TKB,-(SP) 


;GET CHARACTER 


BIC 


#'^C177, (SP) 


;MAKE IT 7-BIT ASCII 


CMP 


(SP)+,#21 


; IS IT A CONTROL-0? 


BNE 


2$ 


;IF NOT DISCARD IT 


BR 


1$ 


; YES. RESUME 


CMP 


4(SP) ,#140 


;IS IT UPPER CASE? 


BLT 


4$ 


;BRANCH IF YES 


CMP 


4(SP) ,#175 


; IS IT A SPECIAL CHAR? 


BGT 


4$ 


; BRANCH IF YES 


BIC 


#40.4(SP) 


;MAKE IT UPPER CASE 


RTI 




;G0 BACK TO USER 



014532 010346 

014534 012703 014640 



♦THIS ROUTINE 
♦CALL: 

* RDLIN 

* RETURN 



$RDLIN: MOV 
1$: MOV 



WILL INPUT A STRING FROM THE TTY 



R3,-(SP) 
#$TTYIN.R3 



INPUT A STRING FROM THE TTY 
;;ADDRESS OF FIRST CHARACTER WILL ilE DN THE STACK 
;;TERMINATOR WILL BE A BYTE OF ALL O'S 

; ;SAVE R3 

; ;GET ADDRESS 
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SEQ 0080 





1 4540 


022703 


014650 




2$ : 






; BUFFER FULL? 




1 4544 


1 1 405 








BLOS 


4$ 


; BR IF YES 




«! 


1 A yl /! A T 








KUUnK 




; uU RtAD UNfe CMARAwTER rRuM THE TTY 




1 4550 












i bP ) + , { R3 J 


;GET CHARACTER 


TOO 


01 4552 


122713 


000 1 77 




1 0$ . 


CMPB 


# 1 77 , ( R3 ) 


; IS IT A RUBOUT 


3232 


1 4556 


00 1 003 








BNE 


3$ 


;SKIP IF NOT 




1 4560 


1 04401 


001 062 




4$ : 


TYPE 


, $QUES 


; TYPE A ' ? ' 




1 4564 


000763 








BR 


1 $ 


;CLEAR THE BUFFER AND LOOP 


3235 


1 4566 


1 1 1 337 


1 MD Jo 




3$ : 


MOVB 




! ECHO THE CHARACTER 


3236 


1 4572 


1 04401 


1 4636 






Jmdo 


1 9$ 




oo^ 


1 4576 


1 22723 


00001 5 






CMPB 


# 1 5 , ( R3 )+ 


jCHECK FOR RETURN 
















2$ 


; LOOP IF NOT RETURN 


Tof n 


U 1 Mt3U*» 


1 05063 








ri on 


-I ( R3 ) 


iCLcAR RciURN ( IHt 15) 






1 0440 1 








TVDC 


t$LF 


;TYPE A LINE FEED 




01 461 4 


1 2603 








Mnw 


\ bH J + , K3 


; RESTORE R3 




1 46 1 6 


Oil 646 








Mnu 


(SP) ,-{SP) 


; ADJUST THE STACK AND PUT ADDRESS OF 


3243 


1 4620 


w 1 DODO 


U WW WU'4 


V Www WA 




MOV 






3244 


014626 


01 2766 


014640 


000004 




MOV 


#$TTYIN.4(SP) 




3245 


014634 


000002 








RTI 




JRETURN 


3246 


014636 


000 






9$: 


.BYTE 





; STORAGE FOR ASCII CHAR. TO TYPE 


3247 


014637 


000 








• BYTE 





;TERMINATOR 


3248 


014640 


000010 






STTYIN: 


.BLKB 


8. 


; RESERVE 8 BYTES FOR TTY INPUT 


3249 


014650 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/~U/<15><12> 


;CONTROL "U" 


3250 


014655 


136 


006507 


000012 


$CNTLG: 


•ASCIZ 


/"G/<15><12> 


JCONTROL "G" 


3251 


014662 


005015 


053523 


020122 


$MSWR: 


.ASCIZ 


<15><12>/SWR a / 




3252 


014670 


020075 


000 












3253 


014673 


040 


047040 


053505 


SIMNEW: 


.ASCIZ 


/ NEW M / 




3254 


014700 


036440 


000040 












3255 
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CZDLDC 


P1 1 1 


9-APR-78 


1 1 :41 


TTY INPUT ROUTINE 






3256 


















3257 


















3258 








.SBTTL 


TRAP DECODER 






3259 


















3260 










M■l^■»H^^^^^■l^^^ 


^^■l^.■^^^^■^^1^1HHf.^H^■ll^^l^i^^^1^ 




^^1H^^^■t^■»nnnn^■l^■^n^1n^1^^lH^ 


3261 








•♦THIS 


ROUTINE 


WILL PICKUP THE 


LOWER BYTE OF THE "TRAP" INSTRUCTION 


3262 








;*AND USE IT TO 


INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


3263 








;*0F THE DESIRED ROUTINE. THEN 


USING THE ADDRESS OBTAINED IT WILL 


3264 








•,*G0 TO 


THAT ROUTINE. 






3265 


















3266 


014704 


01 0046 




strap: 


MOV 


RO,-(SP) 


; iSAVE RO 




3267 


014706 


01 6600 


000002 




MOV 


2(SP) ,R0 


; ;GET TRAP ADDRESS 


3268 


014712 


005740 






TST 


-(RO) 


; ; BACKUP BY 2 




3269 


014714 


11 1000 






MOVB 


(RO) ,R0 


;;GET RIGHT BYTE OF TRAP 


3270 


014716 


006300 






ASL 


RO 


; jPOSITION FOR 


INDEXING 


3271 


014720 


016000 


014740 




MOV 


$TRPAD(RO) ,R0 


: ; INDEX TO TABLE 


3272 


014724 


000200 






RTS 


RO 


; ;G0 TO ROUTINE 




3273 


















3274 


















3275 








; ;THIS 


IS USE TO HANDLE THE "GETPRI" MACRO 




3276 


















3277 


014726 


01 1646 




$TRAP2: 


MOV 


(SP),-(SP) 


; ;MOVE THE PC DOWN 


3278 


014730 


016666 


000004 


000002 


MOV 


4(SP) ,2(SP) 


; ;MOVE THE PSW 


DOWN 


3279 


014736 


000002 






RTI 




RESTORE THE PSW 


3280 


















3281 








.SBTTL 


TRAP TABLE 






3282 


















3283 








;*THIS 


TABLE CONTAINS THE STARTING ADDRESSES OF 


THE ROUTINES CALLED 


3284 








;*BY THE "TRAP" 


INSTRUCTION. 






3285 


















3286 










ROUTINE 








3287 


















3288 


014740 


014726 




STRPAD: 


.WORD 


$TRAP2 






3289 


014742 


01 3420 






STYPE 


; ;CALL»TYPE 


TRAP+1 (104401 ) 


TTY TYPEOUT ROUTINE 


3290 


014744 


013726 






STYPOC 


; ;CALL=TYPOC 


TRAP+2( 104402) 


TYPE OCTAL NUMBER (WITH LEADING ZEROS) 


3291 


014746 


01 3702 






STYPOS 


; ;CALL=TYPOS 


TRAP+3{ 104403) 


TYPE OCTAL NUMBER (NO LEADING ZEROS) 


3292 


014750 


013742 






STYPON 


; ;CALL = TYPON 


TRAP+4( 104404) 


TYPE OCTAL NUMBER (AS PER LAST CALL) 


3293 


















3294 


014752 


014200 






$GTSWR 


; ;CALL=GTSWR 


TRAP+5( 104405) 


GET SOFT-SWR SETTING 


3295 


















3296 


014754 


014130 






SCKSWR 


; ;CALL=CKSWt< 


TRAP+6( 104406) 


TEST FOR CHANGE IN SOFT-SWR 


3297 


014756 


014412 






SRDCHR 


; ;CALL»RDCHR 


TRAP+7( 104407) 


TTY TYPEIN CHARACTER ROUTINE 


3298 


014760 


014532 






SROLIN 


; ;CALL=RDLIN 


TRAP+10(104410) 


TTY TYPEIN STRING ROUTINE 


3299 
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SEQ 0083 



3300 












. SBTTL 


ECHO TEST 




3301 










; ; *«** 






3302 












;*THIS 


ROUTINE WILL ECHO 


ANY CHARACTER TYPED 


3303 












;*AT THE CONSOLE 




3304 












; *THE 


TEST IS HALTED BY TYPING A CONTROL-C 


3305 












;*TEST 


CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 


3306 










; ; ***♦ 




ll,*lt^,^^,,^***l¥^L*******4i*************** **************** 


3307 


014762 








ECHO: 








3308 


014762 


000005 








RESET 




;CLEAR EVERYTHING 


3309 


014764 


1 1 2777 


000052 


165402 




MOVB 


#'*,@CTBUF 


;TRANSMIT PROMPT "*« 


3310 


014772 


105777 


165370 




2$: 


TSTB 


©CRCSR 


;WAIT FOR INPUT 


331 1 


014776 


100375 








BPL 


2$ 




3312 


015000 


1 1 7777 


165364 


165366 




MOVB 


@CRBUF,@CTBUF 


;ECHO INPUT 


3313 


015006 


01 7700 


165356 






MOV 


PCRBUF.RO 


;STORE INPUT 


3314 


015012 


100023 








BPL 


5$ 


;BR IF "ERROR"NOT SET 


3315 


015014 


052701 


010000 






BIS 


#BIT12,R1 


;SET PARITY ERROR TEST MASK 


3316 


015020 


030100 








BIT 


R1 ,R0 


;CHECK FOR PARITY ERROR FLAG 


3317 


015022 


001403 








BEO 


3$ 


;BR IF NOT SET 


3318 


015024 


004737 


015106 






JSR 


PC, MSG 


;REPORT PARITY ERROR 


3319 


01 5030 


01 5134 








MPAR 






3320 


015032 


006301 






3$: 


ASL 


R1 


;SHIFT MASK TO TEST "FR" FLAG 


3321 


015034 


0301 00 








BIT 


R1 ,R0 


;TEST FOR FRAMING ERROR FLAG 


3322 


015036 


001403 








BEQ 


4$ 


,BR IF NOT SET 


3323 


015040 


004737 


015106 






JSR 


PC, MSG 


;REPSORT FRAMING ERROR 


3324 


01 5044 


01 5145 








MFR 






3325 


015046 


006301 






4$: 


ASL 


R1 


SHIFT M.-.SK TO TEST "OR" FLAG 


3326 


01 5050 


0301 00 








BIT 


R1 ,R0 


TEST FOR OVERFLOW ERROR 


3327 


01 5052 


001403 








BEO 


5$ 


BR IF NOT SET 


3328 


01 5054 


004737 


01 51 06 






USR 


PC, MSG 


REPORT OVERFLOW ERROR 


3329 


01 5060 


01 5157 








MOR 






3330 


01 5062 


042700 


000200 




5$: 


BIC 


#BIT7,R0 


CLEAR ANY PARITY BIT 


3331 


015066 


022700 


000003 






CMP 


#3,R0 


WAS INPUT CONTROL-C 


3332 


01 5072 


00 1 337 








BNE 


2$ 


BR IF NOT 


3333 


01 5074 


004737 


01 51 06 






JSR 


PC, MSG 


REPORT PROGRAM STOP 


3334 


015100 


01 5172 








MSTOP 






3335 


01 51 02 


000000 








HALT 




END OF TEST HALT 


3336 


0151 04 


000726 








BR 


ECHO 


AFTER END OF TEST HALT 


3337 
















PRESS CONTINUE TO RESTART ECHO 


3338 


















3339 


01 51 06 


01 3600 






MSG: 


MOV 


@(SP)+,RO ;PICK UP MESSAGE POINTER 


3340 


015110 


062746 


000002 






ADD 


#2,-(SP) ;ADJUST RETURN PC 


3341 


015114 


105777 


165252 




WAIT : 


TSTB 


©CTCSR 


WAIT FOR XMIT DONE 


3342 


015120 


100375 








BPL 


WAIT 




3343 


01 51 22 


1 1 2077 


165246 






MOVE 


(RO)+,@CTBUF ;SEND CHARACTER 


3344 


01 51 26 


1 0571 








TSTB 


(RO) ;IS THIS END OF MESSAGE? 


3345 


015130 


001371 








BNE 


WAIT ;BR IF NOT 


3346 


0151 32 


000207 








RTS 


PC ; RETURN 


3347 


















3348 


015134 


005015 


040520 


044522 


MPAR: 


.ASCIZ 


<CR><LF>/PARITY/ 




3349 


015142 


054524 


000 












3350 


015145 


015 


043012 


040522 


MFR: 


.ASCIZ 


<CR><LF>/FRAMING/ 


3351 


015152 


044515 


043516 


OOL 










3352 


015157 


015 


047412 


042526 


MOR: 


-ASCIZ 


<CR><LF>/OVERFLOW/ 


3353 


015164 


043122 


047514 


000127 










3354 


0151 72 


005015 


052123 


0501 17 


MSTOP: 


.ASCIZ 


<CR><LF>/STOP/ 




3355 


015200 


000 
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SEQ 0083 



3356 
















3357 
















3358 




01 5202 






.EVEN 






3359 
















3360 








.SBTTL 


TERMINAL OUTPUT TEST 




3361 
















3362 








J ; * * >$c>!c IK 


», « >ts * * « 






3363 










;*THIS 


ROUTINE WILL 


OUTPUT ALL WRITABLE CHARACTERS FOR THE 


3364 










;*THE 


OCTAL CODE 040 


— > 377 


3365 










;*32 CHARACTERS ARE 


PRINTED ON EACH LINE 


3366 










;*THE 


PATTERN IS REPEATED EVERY THREE LINES 


3367 










; * 






3368 














************************************* 


3369 
















3370 


015202 


01 2701 


000040 


OUTTST: 


MOV 


#40, R1 


;LOAD FIRST WRITABLE CHARACTER 


3371 


015206 


01 2700 


000040 


1$: 


MOV 


#40, RO 


;LOAD CHAR COUNT PER LINE 


3372 


015212 


105777 


165154 


2$: 


TSTB 


@CTCSR 


;WAIT FOR DONE 


3373 


015216 


100375 






BPL 


2$ 




3374 


015220 


01 0177 


165150 




MOV 


R1 ,#CTBUF 


; TRANSMIT A CHARACTER 


3375 


015224 


105201 






INCB 


R1 


; INCREMENT CHARACTER CODE 


3376 


015226 


005300 






DEC 


RO 


; DECREMENT CHAR COUNT 


3377 


015230 


001370 






BNE 


2$ 


;BR IF LINE NOT COMPLETE 


3378 


015232 


004737 


015106 




JSR 


PC, MSG 


JSSUE CR.LINE FEED 


3379 
















3380 


015236 


001063 






$CRLF 






3381 


015240 


105777 


165122 




TSTB 


@CRCSR 


;ANY CHARACTER RECEIVED? 


3382 


015244 


100404 






BMI 


3$ 


;BR IF YES 


3383 


015246 


032701 


000200 




BIT 


#BIT7,R1 


; FINISHED ONE PASS OF WRITABLE CHARACTERS? 


3384 


015252 


001353 






BNE 


OUTTST 


;BR IF YES 


3385 


015254 


000754 






BR 


1$ 


;IF NOT WRITE NEXT LINE 


3386 
















3387 


015256 


005077 


165106 


3$: 


CLR 


@CRBUF 


;CLEAR RECEIVER 


3388 


015262 


000000 






HALT 




;STOP TEST 


3389 


015264 


000746 






BR 


OUTTST 


; RESTART TEST IF CONTINUED 
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~2DLDC . 


, P 1 1 


1 9~A PR-78 
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TERMINAL OUTPUT 


TEST 


3390 
















3391 
















3392 


1 5266 


040503 


020 1 1 6 


04751 6 


EMI : 


.ASCIZ 


/CAN NOT ACCESS TCSR/ 


3393 


1 5274 


0201 24 


04 1 501 


042503 








3394 


1 5302 


05 1 523 


052040 


051 503 








3395 


1 53 1 


00 0122 












3396 


1 53 1 2 


04 0503 


0201 16 


0475 1 6 


EM2: 


.ASCIZ 


/CAN NflT &rrF<5^ TRIlP/ 


3397 


1 5320 


02 01 24 


041 501 


042503 








3398 


1 5326 


05 1 523 


052040 


052502 








3399 


1 5334 


00 01 06 












3400 


01 5336 


04 1 524 


051 1 23 


042040 


EM3: 


.ASCIZ 


/TCSR DONE NOT CLEARED WITH TBUF FULL/ 


3401 


01 5344 


0471 1 7 


0201 05 


0475 1 6 








3402 


1 5352 


02 1 24 


0461 03 


040505 








3403 


1 5360 


042522 


0201 04 


044527 








3404 


1 5366 


0441 24 


052040 


052502 








3405 


1 5374 


020 1 06 


052506 


0461 1 4 








3406 


1 5402 


000 












3407 


1 5403 


1 24 


051 503 


0201 22 


EM4: 


.ASCIZ 


/TCSR DONE NOT s»ET/ 


3408 


01 54 1 


047504 


04251 6 


047040 








3409 


1 54 1 6 


0521 1 7 


051 440 


0521 05 








341 


01 5424 


000 












341 1 


1 5425 


1 24 


051 503 


0201 22 


EM5: 


.ASCIZ 


/TCSR DONE NOT SET WITH RESET/ 


341 2 


1 5432 


047504 


04251 6 


047040 








341 3 


1 5440 


052 1 1 7 


051 440 


0521 05 








3414 


01 5446 


053440 


0521 1 1 


0201 1 








34 1 5 


1 5454 


042522 


042523 


000 1 24 








341 6 


01 5462 


040503 


0201 1 6 


04751 6 


EM6: 


.ASCIZ 


/CAN NOT ACCESS RCSR/ 


341 7 


01 5470 


0201 24 


04 1 501 


042503 








341 8 


01 5476 


05 1 523 


051 040 


051 503 








341 9 


1 5504 


0001 22 












3420 


01 5506 


040503 


0201 1 6 


0475 1 6 


EM7: 


-ASCIZ 


/CAN NOT ACCESS RBUF/ 


3421 


1 55 1 4 


0201 24 


04 1 501 


042503 








3422 


01 5522 


05 1 523 


051 040 


0525C 1 








3423 


1 5530 


0001 06 












3424 


01 5532 


040503 


0201 1 6 


0475 1 6 


EM10: 


.ASCIZ 


/CAN NOT ACCESS LKS/ 


3425 


1 5540 


020124 


041 501 


042503 








3426 


01 5546 


05 1 523 


046040 


051513 








3427 


1 5554 


000 












3428 


1 5555 


1 02 


052 1 1 1 


020060 


EM11 : 


.ASCIZ 


/BITO OF TCSR NOT CLEAR AFTER RESET/ 


3429 


1 5562 


0431 17 


052040 


051 503 








3430 


1 5570 


02 01 22 


04751 6 


0201 24 








3431 


1 5576 


0461 03 


040505 


0201 22 








3432 


01 5604 


043 1 1 


042524 


020 1 22 








3433 


1 56 1 2 


042522 


042523 


000 1 24 








3434 


1 5620 


040503 


0201 1 6 


04751 6 


EMI 2: 


.ASCIZ 


/CAN NOT SET BITO OF TCSR/ 


3435 


01 5626 


0201 24 


042523 


0201 24 








3436 


015634 


044502 


030124 


047440 








3437 


015642 


020106 


041524 


051 123 








3438 


015650 


000 












3439 


015651 


103 


047101 


047040 


EM13: 


.ASCIZ 


/CAN NOT CLEAR BITO OF TCSR/ 


3440 


015656 


0521 17 


041440 


042514 








3441 


015664 


051101 


041040 


0521 1 1 








3442 


015672 


020060 


0431 17 


052040 








3443 


015700 


051503 


000122 










3444 


015704 


042522 


042523 


020124 


EMI 4: 


.ASCIZ 


/RESET DID NOT CLEAR BITO OF TCSR/ 


3445 


015712 


044504 


020104 


047516 









SEQ 0084 
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SEO 0085 



3446 


015720 


020124 


046103 


040505 


3447 


015726 


020122 


044502 


0301 24 


3448 


015734 


047440 


020106 


041524 


3449 


015742 


051 1 23 


000 




3450 


015745 


1 02 


0521 1 1 


020062 


3451 


015752 


0431 17 


052040 


051503 


3452 


015760 


020122 


047516 


0201 24 


3453 


015766 


046103 


040505 


0201 22 


3454 


015774 


043101 


042524 


0201 22 


3455 


016002 


042522 


042523 


0001 24 


3456 


016010 


040503 


0201 16 


047516 


3457 


016016 


020124 


042523 


0201 24 


3458 


016024 


044502 


031 124 


047440 


3459 


016032 


020106 


041524 


051 123 


3460 


016040 


000 






3461 


016041 


103 


047101 


047040 


3462 


016046 


0521 17 


041440 


042514 


3463 


016054 


051 1 01 


041040 


0521 1 1 


3454 


016062 


020062 


0431 17 


052040 


3465 


016070 


051503 


000122 




3466 


016074 


042522 


042523 


0201 24 


3467 


016102 


044504 


020104 


047516 


3468 


0161 10 


020124 


046103 


040505 


3469 


016116 


020122 


044502 


031 124 


3470 


016124 


047440 


020106 


041524 


3471 


016132 


051 123 


000 




3472 


0161 35 


102 


0521 1 1 


020066 


3473 


016142 


0431 17 


052040 


051503 


3474 


016150 


0201 22 


047516 


020124 


3475 


016156 


046103 


040505 


020122 


3476 


016164 


043101 


042524 


020122 


3477 


016172 


042522 


042523 


027524 


3478 


016200 


000 






3479 


016201 


130 


044515 


020124 


3480 


016206 


0471 1 1 


042524 


051 122 


3481 


016214 


050125 


020124 


0521 01 


3482 


016222 


050040 


044522 


051 1 17 


3483 


016230 


0521 1 1 


020131 


000067 


3484 


016236 


040503 


0201 16 


047516 


3485 


016244 


020124 


042523 


020124 


3486 


016252 


044502 


033124 


047440 


3487 


016260 


020106 


041524 


051 123 


3488 


016266 


000 






3489 


016267 


103 


047101 


047040 


3490 


016274 


0521 17 


041440 


042514 


3491 


016302 


051 101 


041040 


0521 1 1 


3492 


016310 


020066 


0431 17 


052040 


3493 


016316 


051503 


000122 




3494 


016322 


042522 


042523 


0201 24 


3495 


016330 


044504 


020104 


047516 


3496 


016336 


020124 


046103 


040505 


3497 


016344 


020122 


044502 


03312s 


3498 


016352 


047440 


020106 


041524 


3499 


016360 


051 123 


000 




3500 


016363 


102 


0521 1 1 


020066 


3501 


016370 


0431 17 


051040 


051503 



.ASCIZ /BIT2 OF TCSR NOT CLEAR AFTER RESET/ 



.ASCIZ /CAN NOT SET BIT2 OF TCSR/ 



.ASCIZ /CAN NOT CLEAR BIT2 OF TCSR/ 



•ASCIZ /RESET DID UOT CLEAR BIT2 OF TCSR/ 



.ASCIZ ;BIT6 OF TCSR NOT CLEAR AFTER RESET/ 



.ASCIZ /XMIT INTERRUPT AT PRIORITY 7/ 



.ASCIZ /CAN NOT SET BITS OF TCSR/ 



.ASCIZ /CAN NOT CLEAR BITS OF TCSR/ 



.ASCIZ /RESET DID NOT CLEAR BIT6 OF TCSR/ 



•ASCII /BITS OF RCSR NOT CLEAR AFTER RESET/ 



.MAIN, 


MACY1 1 


30A( 1052 


19-APR-78 1 


CZDLDC 


P11 1 


9-APR-78 


11:41 




3502 


016376 


0201 22 


047516 


0201 24 


3503 


016404 


0461 03 


040505 


0201 22 


3504 


016412 


0431 01 


042524 


0201 22 


3505 


016420 


042522 


042523 


0001 24 


3506 


016426 


041522 


051126 


044440 


3507 


016434 


0521 1 6 


051 105 


052522 


3508 


016442 


052120 


053440 


0521 1 1 


3509 


016450 


0201 1 


051 120 


047511 


3510 


016456 


044522 


054524 


033440 


351 1 


016464 


000 






3512 


016465 


1 03 


047101 


047040 


3513 


01 6472 


0521 17 


051440 


0521 05 


3514 


016500 


041040 


0521 1 1 


020066 


3515 


016506 


0431 17 


051040 


051503 


3516 


016514 


000122 






3517 


016516 


040503 


0201 16 


047516 


3518 


016524 


020124 


046103 


040505 


3519 


016532 


0201 22 


044502 


0331 24 


3520 


016540 


047440 


020106 


041522 


3521 


016546 


051 123 


000 




3522 


016551 


1 03 


047101 


047040 


3523 


016556 


0521 17 


041440 


042514 


3524 


016564 


051 101 


041040 


0521 1 1 


3525 


016572 


020066 


0431 17 


051 040 


3526 


016600 


051503 


020122 


044527 


3527 


01 6606 


0441 24 


051040 


051505 


3528 


016614 


052105 


000 




3529 


01661 7 


102 


0521 1 1 


020066 


3b 30 


016624 


0431 1 7 


046040 


051513 


■:53i 


C 6632 


047040 


0521 17 


041 440 


J532 


01 6640 


042514 


051 101 


04044^ 


2^33 


016646 


0521 06 


051 105 


051 040 


::o4 


016654 


051505 


052105 


000 


3 -.35 


1 6B5t 


1 1 4 


051513 


044440 




016666 


0521 16 


051 105 


052522 


i-37 


! "6 4 


C521 20 


053440 


0521 1 1 


J53S 


:ie'7r2 


0201 1 


051 120 


04751 1 


3539 


16710 


044522 


054524 


033440 


:3 40 


C t67'S 


000 






3541 


015717 


1 03 


047101 


047040 


3542 


: 1 6'' 24 


0521 17 


051440 


0521 05 




1 b732 


04 1 040 


0521 1 1 


020066 


3544 


r i 5740 


0431 17 


046040 


051513 


' ^ " 5 


U -^6 


000 








! ''"47 


1 03 


047101 


047040 




t '=^■'54 


0521 1 7 


041440 


042514 




' 6762 


051 1 01 


041 040 


0521 1 1 


3549 


' 1 P,7''Q 


020066 


0431 17 


046040 


-i3S0 


.1r-"5 


051513 


000 




r55^ 


7001 


1 22 


051505 


0521 05 


j35. 


' 1 <CC6 


042040 


0421 1 1 


047040 


3053 


7- i /; 


0521 17 


041 440 


042514 


3554 


c r'0'^2 


051 1 01 


041040 


0521 1 i 


35^5 




020066 


043117 


046040 


3556 


: ' 70 36 


051513 


000 




35? 7 


V ' 7041 


1 04 


040525 


0201 14 



:44 PAGE 86 
TERMINAL OUTPUT TEST 



SEQ 0086 



.ASCIZ /RCVR INTERRUPT WITH PRIORITY 7/ 



EM30: .ASCIZ /CAN NOT SET BIT6 OF RCSR/ 



EM31 : .ASCIZ /CAN NOT CLEAR BIT6 OF RCSR/ 



EM32: .ASCIZ /CAN NOT CLEAR BIT6 OF RCSR WITH RESET/ 



EM33: .ASCIZ /BITS OF LKS NOT CLEAR AFTER RESET/ 



.ASCIZ /LKS INTERRUPT WITH PRIORITY 7/ 



.ASCIZ /CAN NOT SET BIT6 OF LKS/ 



.ASCIZ /CAN NOT CLEAR BITS OF LKS/ 



.ASCIZ /RESET DID NOT CLEAR BITS OF LKS/ 



.ASCIZ /DUAL ADDRESSING ERROR/ 



.MAIN. 


fvlACYI 1 


30A( 1052 


19-APR-7a 11 


:44 PAGE 


87 


CZDLDC 


P11 19-APR-78 


1 1 :41 




TERMINAL 


OUTPUT 


3558 


01 7046 


0421 01 


051 104 


051505 






3559 


01 7054 


044523 


043516 


042440 






3560 


01 7062 


051 122 


051 1 17 


000 






3561 


017067 


1 02 


0521 1 1 


020066 


EM41 : 


.ASCIZ 


3562 


01 7074 


0431 1 7 


046040 


051513 






3563 


017102 


047040 


0521 17 


051 440 






3564 


017110 


0521 05 


040440 


0521 06 






3565 


017116 


051 105 


051040 


051505 






3566 


017124 


052105 


000 








3567 


017127 


103 


047101 


047040 


EM42: 


.ASCIZ 


3568 


017134 


0521 17 


041440 


042514 






3569 


017142 


051 101 


041 040 


0521 1 1 






3570 


017150 


020067 


0431 17 


046040 






3571 


017156 


051513 


000 








3572 


017161 


102 


0521 1 1 


020067 


EM43: 


.ASCIZ 


3573 


017166 


0431 1 7 


046040 


051513 






3574 


01 71 74 


042040 


042517 


020123 






3575 


017202 


047516 


020124 


042523 






3576 


017210 


0001 24 










3577 


017212 


052122 


020103 


0471 1 1 


EM44: 


•ASCIZ 


3578 


017220 


042524 


051 122 


0501 25 






3579 


017226 


020124 


052101 


050040 






3580 


017234 


044522 


051 1 17 


0521 1 1 






3581 


017242 


020131 


000067 








3582 


017246 


052122 


020103 


0471 1 1 


EM45: 


.ASCIZ 


3583 


017254 


042524 


051 122 


0501 25 






3584 


017262 


051524 


053440 


042510 






3585 


017270 


0201 16 


044504 


040523 






3586 


017276 


046102 


042105 


000 






3587 


017303 








EM47: 




3588 


017303 


122 


041524 


044440 


EM46: 


.ASCIZ 


3589 


017310 


0521 16 


051 105 


052522 






3590 


01 7316 


052120 


042040 


0421 1 






3591 


01 7324 


047040 


0521 17 


047440 






3592 


017332 


041503 


051 125 


000 






3593 


017337 


122 


041524 


042040 


EM50: 


.ASCIZ 


3594 


017344 


052517 


046102 


0201 05 






3595 


017352 


0471 1 1 


042524 


051 122 






3596 


017360 


050125 


000124 








3597 


017364 


042522 


042523 


020124 


EM51 : 


.ASCIZ 


3598 


017372 


044504 


020104 


047516 






3599 


017400 


0201 24 


0471 1 1 


042524 






3600 


017406 


051 122 


050125 


0001 24 






3601 


01 7414 


0521 22 


020103 


0471 1 1 


EMS 2: 


.ASCIZ 


3602 


017422 


042524 


051 122 


050125 






3603 


01 7430 


020124 


044504 


0201 04 






3604 


017436 


047516 


020124 


0461 03 






3605 


01 7444 


040505 


020122 


044527 






3606 


01 7452 


044124 


041040 


0521 1 1 






3607 


017460 


020067 


043117 


046040 






3608 


017466 


051513 


000 








3609 


017471 


103 


047514 


045503 


EM53: 


.ASCIZ 


3610 


017476 


051040 


050105 


040505 






361 1 


017504 


040524 


044502 


044514 






3612 


017512 


054524 


000 








3613 


01751S 


130 


044515 


020124 


EMS4: 


.ASCIZ 



SEQ 0087 



ASCIZ /BIT6 OF LKS NOT SET AFTER RESET/ 



.ASCIZ /CAN NOT CLEAR BIT7 OF LKS/ 



.ASCIZ /BIT7 OF LKS DOES NOT SET/ 



ASCIZ /RTC INTERRUPT AT PRIORITY 7/ 



ASCIZ /RTC INTERRUPTS WHEN DISABLED/ 



.ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 



.ASCIZ /RTC DOUBLE INTERRUPT/ 



ASCIZ /RESET DID "^OT INTERRUPT/ 



ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS/ 



ASCIZ /CLOCK REPEATABILITY/ 



ASCIZ /XMIT INTERRUPTS WHEN DISABLED/ 



.MAIN. MACYtl 30A(1052) 19-APR-78 11:44 PAGE 88 SE0 0088 

CZDLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 



361 4 


1 7522 


047111 


042524 


051 1 22 




361 5 


017530 


050 1 25 


051 524 


053440 




361 6 


1 7536 


042510 


0201 1 6 


044504 




361 7 


1 7544 


040523 


0461 02 


042 1 05 




36 1 8 


1 7552 


000 








36 1 9 


1 7553 


1 30 


04451 5 


0201 24 


EM56: 


3620 


1 7560 


047 1 1 1 


042524 


051 1 22 




362 1 


1 7566 


050 1 25 


051 524 


040440 




3622 


1 7574 


0201 24 


051 1 20 


0475 1 1 




3623 


1 7602 


044522 


054524 


033440 




3624 


1 761 


000 








3625 


1 76 1 1 


1 30 


04451 5 


0201 24 


EMS 7: 


3626 


1 751 6 


047 1 1 1 


042524 


051 1 22 




3627 


1 7624 


050 1 25 


051 524 


053440 




3628 


1 7632 


052111 


0201 10 


0471 05 




3629 


1 7640 


04 1101 


042514 


041 440 




3630 


1 7646 


0425 1 4 


051 1 01 


000 




3631 


1 7653 








EM55: 


3632 


1 7653 


1 30 


04451 5 


0201 24 


EM60: 


3633 


1 7660 


044504 


0201 04 


04751 6 




3634 


1 7656 


020 1 24 


0471 1 1 


042524 




3635 


C 1 7674 


05 1 1 22 


0501 25 


0001 24 




3636 


1 7702 


046530 


0521 1 1 


051 040 


EM61 : 


3637 


017710 


026505 


0471 1 1 


042524 




3638 


017716 


05 1 1 22 


0501 25 


042524 




3639 


017724 


00 01 04 








3640 


1 7726 


04751 4 


0421 01 


0471 1 1 


EM62: 


364 1 


1 7734 


020107 


04 1 1 24 


0431 25 




3642 


01 7742 


042040 


0421 1 1 


047040 




3643 


017750 


0521 17 


041 440 


042514 




3644 


01 7756 


051101 


044440 


0521 16 




3645 


1 7764 


05 1 1 05 


052522 


0521 20 




3646 


01 7772 


000 








3647 


017773 


1 22 


0531 03 


0201 22 


EM63: 


3648 


020000 


04 1 50 1 


044524 


042526 




3649 


020006 


047040 


0521 1 7 


051440 




3650 


020014 


0521 05 


000 






3551 


020017 


1 22 


0531 03 


0201 22 


EM64: 


3652 


020024 


047504 


04251 6 


047040 




3653 


02C032 


0531 05 


051 1 05 


051 440 




3654 


020040 


052105 


000 






3655 


020043 


1 22 


0531 03 


0201 22 


EM65: 


3656 


020050 


041 501 


044524 


042526 




3557 


020056 


047040 


0521 1 7 


041 440 




3658 


020064 


042514 


051 101 


042105 




3659 


02C072 


053440 


0521 1 1 


0201 10 




3660 


0201 00 


047504 


042516 


051440 




3661 


0201 05 


0521 05 


000 






3662 


0201 1 1 


122 


051505 


0521 05 


EM66: 


3663 


0201 16 


042040 


0421 1 1 


047040 




3664 


020124 


0521 1 7 


041440 


042514 




3665 


0201 32 


051 101 


051040 


0531 Ow 




3666 


020140 


0201 22 


047504 


042516 




3667 


020146 


000 








3668 


020147 


122 


051 104 


042440 


EM67: 


3669 


020154 


040516 


046102 


0201 05 





•ASCIZ /XMIT INTERRUPTS AT PRIORITY 7/ 

.ASCIZ /XMIT INTERRUPTS WITH ENABLE CLEAR/ 

•ASCIZ /XMIT DID NOT INTERRUPT/ 

.ASCIZ /XMIT RE-INTERRUPTED/ 

.ASCIZ /LOADING TBUF DID NOT CLEAR INTERRUPT/ 

.ASCIZ /RCVR ACTIVE NOT SET/ 

.ASCIZ /RCVR DONE NEVER SET/ 

.ASCIZ /RCVR ACTIVE NOT CLEARED WITH DONE SET/ 

.ASCIZ /RESET DID NOT CLEAR RCVR DONE/ 

.ASCIZ /RDR ENABLE DID NOT CLEAR RCVR DONE/ 



.MAIN. 


MACY1 1 


30A( 1052) 


1 19-APR-78 11 


:44 PAGE 


CZDLDC. 


PI 1 


I9-APR-78 


11:41 




TERMINAL 


3670 


0201 62 


044504 


020104 


047516 




3671 


0201 70 


020124 


046103 


040505 




3672 


020176 


020122 


041522 


051126 




3673 


020204 


042040 


0471 17 


0001 05 




3674 


020212 


042522 


042101 


0471 1 1 


EM70: 


3675 


020220 


020107 


041 122 


0431 25 




3676 


020226 


042040 


0421 1 1 


047040 




3677 


020234 


0521 17 


041440 


042514 




3678 


020242 


051 101 


051040 


0531 03 




3679 


020250 


020122 


047504 


042516 




3680 


020256 


000 








3681 


020257 


122 


053103 


0201 22 


EM7 1 : 


3682 


020264 


0471 1 1 


042524 


051 122 




3683 


020272 


0501 25 


051524 


053440 




3684 


020300 


0521 1 1 


0201 10 


047105 




3685 


020306 


041 101 


042514 


041440 




3686 


020314 


042514 


051 101 


000 




3687 


020321 


122 


053103 


0201 22 


EM73 : 


3688 


020326 


0471 1 1 


042524 


051122 




3689 


020334 


050125 


051524 


040440 




3690 


020342 


020124 


051 120 


04751 1 




3691 


020350 


044522 


054524 


033440 




3692 


020356 


000 








3693 


020357 


122 


053103 


0201 22 


EM74: 


3694 


020364 


0471 1 1 


020124 


050522 




3695 


020372 


052123 


050040 


051501 




3696 


020400 


042523 


020104 


044527 




3697 


020406 


044124 


042440 


040516 




3698 


020414 


046102 


020105 


046103 




3699 


020422 


040505 


000122 






3700 


020426 








EM72: 


3701 


020426 


041522 


051 126 


042040 


EM75: 


3702 


020434 


0421 1 1 


047040 


0521 17 




3703 


020442 


044440 


0521 16 


051 105 




3704 


020450 


052522 


052120 


000 




3705 


020455 


122 


053103 


020122 


EM76: 


3706 


020462 


042522 


044455 


0521 16 




3707 


020470 


051 105 


052522 


0521 20 




3708 


020476 


042105 


000 






3709 


020501 


122 


040505 


044504 


EM77: 


3710 


020506 


043516 


051040 


052502 




371 1 


020514 


020106 


044504 


020104 




3712 


020522 


047516 


020124 


046103 




3713 


020530 


040505 


020122 


0471 1 1 




3714 


020536 


042524 


051 122 


050125 




3715 


020544 


000124 








3716 


020546 


042522 


042523 


020124 


EMI 00: . 


3717 


020554 


044504 


020104 


047516 




3718 


020562 


020124 


046103 


040505 




3719 


020570 


020122 


041522 


051 126 




3720 


020576 


044440 


0521 16 


051 105 




3721 


020604 


052522 


052120 


000 




3722 


02061 1 


047 


051 1 17 


020047 


EMI 01 : . 


3723 


020616 


046106 


043501 


042040 




3724 


020624 


0421 1 1 


047040 


052117 




3725 


020632 


051440 


052105 


000 





SEQ 0089 



ASCIZ /READING R8UF DID NOT CLEAR RCVR DONE/ 



.ASCIZ /RCVR INTERRUPTS WITH ENABLE CLEAR/ 



-ASCIZ /RCVR INTERRUPTS AT PRIORITY 7/ 



.ASCIZ /RCVR INT RQST PASSED WITH ENABLE CLEAR/ 



.ASCIZ /RCVR DID NOT INTERRUPT/ 



.ASCIZ /RCVR RE-INTERRUPTED/ 



.ASCIZ /READING RBUF DID NOT CLEAR INTERRUPT/ 



ASCIZ /RESET DID NOT CLEAR RCVR INTERRUPT/ 



.ASCIZ /'OR' FLAG DID NOT SET/ 



.MAIN. 

C2DLDC . 



MACY11 30A(1052) 19-APR-78 11 
PI 1 ig-APR-78 11 :4t 



:44 PAGE 90 
TERMINAL OUTPUT TEST 



SEO 0090 



3726 


020637 


047 


051 1 05 


047522 


mw2: 


.ASCIZ 


3727 


020644 


023522 


047040 


0521 17 






3728 


020552 


05 1 440 


052105 


053440 






3729 


020660 


0521 1 1 


0201 10 


047447 






3730 


020666 


023522 


043040 


040514 






3731 


020674 


0001 07 










3732 


020676 


05 11 02 


040505 


0201 13 


EMI 03: 


.ASCI2 


3733 


020704 


044504 


020104 


047516 






3734 


020712 


0201 24 


046530 


0521 1 1 






3735 


020720 


040440 


0461 14 


055040 






3736 


020726 


051 105 


04251 7 


0001 23 






3737 


020734 


051 1 02 


040505 


0201 13 


EMI 04: 


.ASCIZ 


3738 


020742 


044504 


020104 


047516 






3739 


020750 


0201 24 


042523 


0201 24 






3740 


020756 


043047 


023522 


042440 






3741 


020764 


051 1 22 


051 1 17 


000 






3742 


020771 


104 


052101 


0201 01 


EM105: 


.ASCIZ 


3743 


020776 


047503 


0501 15 


051 101 






3744 


021 004 


020105 


051 105 


047522 






3745 


021012 


0001 22 










3746 


021014 


040504 


040524 


041440 


EMI 06: 


.ASCIZ 


3747 


021022 


04651 7 


040520 


042522 






3748 


021030 


042440 


051 122 


051 1 17 






3749 


021036 


053440 


0521 1 1 


0201 10 






3750 


021044 


040503 


046102 


0001 05 






3751 


021052 


044524 


042515 


052517 


EM107: 


.ASCIZ 


3752 


021060 


020124 


0471 1 1 


042440 






3753 


021 066 


042530 


041522 


05151 1 






3754 


021074 


051 105 


052040 


051505 






3755 


021 1 02 


0001 24 










3756 


021 1 04 


0471 1 1 


047503 


051 1 22 


EMI 10: 


.ASCIZ 


3757 


021 1 1 2 


041505 


020124 


042522 






3758 


0211 20 


042503 


0531 1 1 


0201C- 






3759 


021 1 26 


047503 


047125 


0001 24 






3760 


021 1 34 


040504 


040524 


041440 


EM1 11 : 


.ASCIZ 


3761 


021 1 42 


04651 7 


040520 


042522 






3762 


021 1 50 


042440 


051 122 


051 1 17 






3763 


021 1 56 


044440 


0201 16 


0541 05 






3764 


021 164 


051 105 


044503 


042523 






3765 


0211 72 


000122 










3766 


021 1 74 


051 124 


050101 


041440 


EM1 12: 


.ASCIZ 


3767 


021 202 


052101 


0441 03 


051 1 05 






3768 


021210 


000 










3769 


02121 1 


1 1 6 


0201 17 


0461 03 


EM1 13: 


.ASCIZ 


3770 


021215 


0201 1 3 


0471 1 1 


042524 






3771 


021 224 


051 122 


050125 


0201 24 






3772 


021 232 


0471 1 1 


042440 


042530 






3773 


021240 


041522 


05151 1 


051 1 05 






3774 


021 246 


000 










3775 


021 247 


042 


051 105 


047522 


EM1 14: 


.ASCIZ 


3776 


021254 


021 122 


047040 


0521 17 






3777 


021262 


051440 


052105 


053440 






3778 


021270 


0521 1 1 


0201 1 


043042 






3779 


021276 


021 122 


043040 


040514 






3780 


021304 


000107 










3781 


021306 


041522 


020126 


041501 


EM1 15: 


.ASCIZ 



ASCIZ /'ERROR' NOT SET WITH 'OR' FLAG/ 



ASCIZ /BREAK DID NOT XMIT ALL ZEROES/ 



ASCIZ /BREAK DID NOT SET 'FR' ERROR/ 



ASCIZ /DATA COMPARE ERROR/ 



ASCIZ /DATA COMPARE ERROR WITH CABLE/ 



ASCIZ /TIMEOUT IN EXERCISER TEST/ 



ASCIZ /INCORRECT RECEIVE COUNT/ 



ASCIZ /DATA COMPARE ERROR IN EXERCISER/ 



ASCIZ /"ERROR" NOT SET WITH "FR" FLAG/ 



ASCIZ /RCV ACTIVE NOT CLEAR WITH INIT/ 



.MAIN. 


MACY1 1 


30A( 1052) 


1 19-APR-78 11 


:44 PAGE 


CZDLDC. 


PI 1 1 


9-APR-78 


1 1 :41 




TERMINAL 


3782 


021 314 


044524 


042526 


047040 




3783 


021 322 


0521 17 


041440 


042514 




3784 


021330 


051 101 


053440 


0521 1 1 




3785 


021336 


0201 1 


0471 1 1 


0521 1 1 




3786 


021344 


000 








3787 


021345 


1 22 


053103 


040440 


EMI 16: . 


3788 


021352 


052103 


0531 1 1 


020105 




3789 


021360 


044527 


044124 


052517 




3790 


021 366 


020124 


051442 


040524 




3791 


021374 


052122 


020042 


044502 




3792 


021 402 


0001 24 








3793 


021404 


0421 22 


020122 


0471 05 


EMI 17: . 


3794 


021412 


041 101 


042514 


047040 




3795 


021420 


0521 17 


041 440 


042514 




3796 


021426 


051 101 


053440 


0521 1 1 




3797 


021434 


0201 1 


041522 


020126 




3793 


021442 


041501 


044524 


042526 




3799 


021450 


000 








3800 












3801 


021451 


1 24 


051505 


021524 


DH1 : 


3302 


021456 


020040 


042440 


051 1 22 




3803 


021464 


051 1 17 


020043 


052040 




3804 


021472 


051503 


0001 22 






3805 


021 476 


042524 


052123 


020043 


DH2: 


3806 


02 1 504 


020040 


051 105 


0201 22 




3807 


021512 


041520 


020040 


041 1 24 




3808 


021520 


043125 


000 






3809 


021523 


124 


051505 


021524 


DH6: 


3810 


021530 


020040 


042440 


051 122 




381 1 


021536 


050040 


020103 


051040 




3812 


021544 


051503 


000122 






3813 


021550 


042524 


052123 


020043 


DH7 : 


3814 


021556 


020040 


051 105 


0201 22 




3815 


021564 


041 520 


020040 


041 1 22 




3816 


021572 


043125 


000 






3817 


021575 


124 


051505 


021524 


DH10: 


3818 


021602 


020040 


042440 


051 1 22 




3819 


021610 


050040 


020103 


046040 




3820 


021616 


051513 


000 






3821 


021621 


124 


051505 


021524 


DH40: 


3822 


021626 


020040 


042440 


051 1 22 




3823 


021634 


050040 


020103 


043440 




3824 


021642 


047517 


020104 


020040 




3825 


021650 


04 1 040 


0421 01 


000 




3826 


021655 


124 


051505 


021524 


DH53: 


3827 


021662 


020040 


042440 


051 122 




3828 


021670 


050040 


020103 


046040 




3829 


021676 


051513 


020040 


020040 




3830 


021704 


041440 


0521 16 


020061 




3831 


021712 


020040 


041440 


0521 16 




3832 


021720 


000062 








3833 


021 722 


042524 


052123 


02004- 


DH103: . 


3834 


021730 


020040 


051 1 05 


0201 22 




3835 


021736 


041520 


020040 


041522 




3836 


021744 


051 123 


020040 


020040 




3837 


021752 


040504 


040524 


000 





SEQ 0091 



ASCIZ /RCV ACTIVE WITHOUT "START" BIT/ 



ASCIZ /RDR ENABLE NOT CLEAR WITH RCV ACTIVE/ 



ASCIZ /TEST* ERROR* TCSR/ 



ASCIZ /TEST* ERR PC TBUF/ 



ASCIZ /TEST* ERR PC RCSR/ 



ASCIZ /TEST* ERR PC RBUF/ 



ASCIZ /TEST* ERR PC LKS/ 



ASCIZ /TEST* ERR PC GOOD BAD/ 



ASCIZ /TEST* ERR PC LKS CNT1 CNT2/ 



ASCIZ /TEST* ERR PC RCSR DATA/ 
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SEQ 0092 



3838 


021 757 


1 24 


051505 


021524 


OH105: 


.ASCIZ 


/TEST# ERR PC RCSR GOOD BAD/ 


3839 


021 764 


020040 


042440 


051 1 22 








3840 


021 772 


050040 


020103 


051040 








3841 


022000 


051503 


0201 22 


020040 








3842 


022006 


043440 


047517 


0201 04 








3843 


022014 


020040 


041040 


0421 01 








3844 


022022 


000 












3845 


022023 


1 24 


051505 


021524 


DHIIO: 


.asciz 


/TEST* ERR PC RCSR TRANS RCV/ 


3846 


022030 


020040 


042440 


051 122 








3847 


022036 


050040 


020103 


051040 








3848 


022044 


051503 


0201 22 


020040 








3849 


022052 


052040 


040522 


051516 








3050 


022060 


020040 


051040 


053103 








3851 


022066 


000 












3852 


022067 


124 


051505 


021524 


DH1 12: 


.ASCIZ 


/TEST* ERR PC RCSR OLDPC TRAP 


3853 


022074 


020040 


042440 


051 122 








3854 


0221 02 


050040 


020103 


051040 








3855 


0221 10 


051503 


020122 


020040 








3856 


0221 16 


047440 


0421 14 


041520 








3857 


0221 24 


020040 


052040 


040522 








3858 


022132 


020120 


042101 


000122 








3859 












.EVEN 




3860 


022140 


005015 


055103 


046104 


Ml : 


.ASCIZ 


<CR><LF>/CZDLD-C/ 


3851 


022146 


026504 


000103 










3862 












.EVEN 




3863 


022152 


00501 5 






M2: 


.ASCII 


<CR><LF> 


3864 


022154 


020040 


042040 


0531 05 


M2A: 


.ASCIZ 


/ DEVICES UNDER TEST / 


3865 


0221 62 


041 51 1 


051505 


052440 








3866 


0221 70 


0421 16 


051 105 


052040 








3867 


0221 76 


051505 


020124 


000040 








3868 
















3869 












.EVEN 




3870 


022204 


001072 


001016 


002352 


DT1 : 


.WORD 


$TESTN,$ERRPC,TCSR,0 


3871 


022212 


000000 












3372 


022214 


001072 


001016 


002354 


DT2: 


.WORD 


$TESTN,$ERRPC,TBUF,0 


3873 


022222 


000000 












3874 


022224 


001072 


001016 


002346 


DT6t 


.WORD 


STESTN , SERRPC , R'^.SR , 


3875 


022232 


000000 












3876 


022234 


001 072 


001016 


002350 


DT7: 


.WORD 


$TESTN.$ERRPC,RBUF,0 


3877 


022242 


oocooo 












3878 


022244 


001072 


001016 


002406 


DT10: 


.WORD 


$TESTN,«ERRPC, LKS.O 


3879 


022252 


000000 












3880 


022254 


001072 


001 016 


001 020 


DT40: 


.WORD 


STESTN , SERRPC , SGDADR , SBDADR , 


3881 


022262 


00 1 022 


000000 










3882 


022266 


001072 


001016 


002406 


DT53: 


.WORD 


STESTN , SERRPC , LKS , F I RST , SECND , 


3883 


022274 


006600 


006602 


000000 








3884 


022302 


001072 


001 016 


002346 


DT103: 


.WORD 


$TESTN,$ERRPC,RCSR,$BDDAT,0 


3885 


022310 


001026 


000000 










3886 


022314 


001072 


001016 


002346 


DT105: 


.WORD 


STESTN , SERRPC , RCSR , SGDDAT , SBDDAT , 


3887 


022322 


001024 


001026 


000000 








3888 


022330 


001072 


001016 


002346 


DT1 10: 


.WORD 


STESTN , SERRPC , RCSR , XMTCNT , RCVCNT , 


3889 


022336 


01 1730 


01 1726 


000000 








3890 


022344 


001072 


001016 


00234J 


DT112: 


.WORD 


STESTN , SERRPC , RCSR , OLDPC , BDVECT , 


3891 


022352 


01 2300 


012302 


000000 








3892 




000001 








.END 





.MAIN. 


MACY11 30A(1052) 


19-APR 


-78 1 1 


:44 PA 


CZDLDC. 


P11 19-APR-7e 


1 1 :41 




CROSS 


ABASE = 


176500 


537# 


650 


691 


ACDW1 = 


000000 


650 






ACDW2 = 


000000 


650 






ACPUOP= 


000000 


650 


665 




ADDWO = 


000000 


650 






ADDW1 = 


000000 


650 






ADDW10= 


000000 


650 






ADDW1 1 = 


000000 


650 






ADDW12= 


000000 


650 






ADDW13= 


000000 


650 






ADDW14= 


000000 


650 






ADDW15= 


000000 


650 






ADDW2 = 


000000 


650 






ADDW3 = 


000000 


650 






ADDW4 = 


000000 


650 






ADDW5 = 


000000 


650 






ADDW6 = 


000000 


650 






ADDW7 = 


000000 


650 






ADDW8 = 


000000 


650 






ADDW9 = 


000000 


650 






ADEVCT= 


000000 


650 


656 




ADEVM = 


000000 


650 


692 




ADR 


003562 


1314# 


131 7 




ADRTBL 


002414 


1 139# 


1 145 


1312 


AENV = 


000000 


650 


661 




AENVM = 


000000 


650 


662 




AFATAL= 


000000 


650 


653 




AMADR1 = 


000000 


650 


678 




AMADR2= 


000000 


650 


682 




AMADR3= 


000000 


650 


685 




AMADR4= 


000000 


650 


688 




AMAMSI = 


000000 


650 


672 




AMAMS2= 


000000 


650 


68C 




AMAMS3= 


000000 


650 


683 




A!V1AMS4 = 


000000 


650 


686 




AMSGAD= 


000000 


650 


658 




AMSGLG= 


000000 


650 


659 




AMSGTY= 


000000 


650 


652 




AMTYP1 = 


000000 


650 


673 




AIV1TYP2 = 


000000 


650 


681 




AMTYP3= 


000000 


650 


684 




AMTYP4= 


000000 


650 


687 




APASS = 


000000 


650 


655 




APRIOR= 


000000 


650 






APTCSU= 


000040 


2955# 


2988 




APTENVr 


000001 


2731 


291 


2953# 


APTSIZ= 


000200 


1207 


2952# 




APTSPO= 


0001 00 


2912 


2954# 


2983 


APTS2D 


003266 


1218 


1220 


1245^ 


ASWREGs 


000000 


650 


663 




ATESTNx 


000000 


650 


654 




AUNIT = 


000000 


650 


657 




AUSWR = 


000400 


539# 


650 


664 


AVECT1= 


000300 


538# 


650 


689 


AV£CT2:= 


000000 


650 


690 




BDVECT 


012302 


2697* 


2703# 


3890 



USER SYMBOLS 



SEQ 0093 
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CZD LDC 


, P 1 1 1 9"*A PR 


-78 






CROSS REFERENCE 


TABLE ■ 


BEGIN 


003424 






- 

1 1 1 








B I T 


s 000001 




coo* 




1289 


1481 


1 492 












2415 


2420 


2424 


Bl TOO 


s 000001 






„ _ _ 








BI T01 


= 000002 














J^? 


= 000004 






^00 








BI ro3 


s 0000 1 






s;i a 

^ o 








BI 104 


ffi 000020 




KA^ 










B I T05 


- 000040 






R1 7 








BI T06 


i= 000100 




KAK 


^1 R 
il c 








B I T07 


= 000200 




KAK 

505(f 










BI T08 


s 000400 




504# 










BI T09 


s 001000 








2742 


2881 




B I T 1 


= 000002 








1723 






B I T 1 


= 002000 




RA1 4^ 


■5^7^ 


2431 






B I T 1 1 


= 004000 




Inn 


^-51 1 


2118 


2128 


21 44 


BI T1 2 


= 010000 




^QO 










B I T 1 3 


= 020000 








2726 






BI T 1 4 


a 040000 




498# 




2865 






BI T 1 5 


a 100000 








2447 






BI T2 


ts 000004 




520^ 


ROT 

01 


1536 


1537 


1 542 








2140 


oocf 


2154 


2158 














2264 


2267 


2285 








9400 


040d 


2436 


2441 


2462 




s 0000 1 




51 Qf^i 












~ u U U U .cU 




5 1 8# 


1211 


1282 


1420 


1 724 




s UUUU*»w 






1 2 1 9 


2591 


2609 




BI T6 


» A A A ^ AA 

3 UUU 1 uu 






1 574 


1584 


1585 


1 591 








640 


1 642 


1657 


1675 


1 682 












1801 


1824 


1 832 








928 


1 946 


1948 


1989 


2002 








_ , 


2092 


2207 


2208 


2226 








2359 


2539 


2543 


2545 


2546 


BI 






51 5# 


1217 


1768 


1769 


1 771 








^^^^ 


3383 










— A A A/! A A 
= UUUhUU 






1 478 


2400 


2433 




RT TQ 


— AA 1 AAA 














BPT 


s 000003 














B P T VE C 


— A A n A 1 4 

= uuuu 1 *t 




















ot;c;i 




2631* 








01 2254 




553 


2695<i' 








C A S WR 






2741 


2864 


3296* 












254 1 


2622* 








r i^KrwT 


01 1 732 




?964 


?967# 


2627* 






CMPARE 


006536 














COMP 


01 1560 




2588* 


2592 








CONT 


005566 




1 778^ 


1781 








C0NT41 


010724 




241 1 


241 8# 








CR 


- 000015 




437# 


2676 


3027 




3348 


CRBUF 


002370 




1 126# 


331 2 


3313 


3387* 




CRCSR 


002366 




1 125# 


1237 


1293 


3310 


3381 


CRLF 


= 000200 




438# 


2998 


3037 






CRPSW 


002400 




1 130/1' 










CRVECT 


002376 




1 129# 










CTBUF 


002374 




1 1 2B# 


3309* 


3312* 


3343* 


3374* 




002372 






3341 


3372 






. MAIN . 


MACY1 1 30A(1052) 


1 9-APR' 


-78 


:44 PAGE 


96 




CZDLDC . 


P11 19-APR- 


78 


11.41 




CROSS REFERENCE 


TABLE "" 


- 


002404 














TTCTPI 


002336 




1 1 08# 


1 60* 


1213* 


1292* 


1 339 








_ _ 




1790 


1844 


1 883 




002402 














DDISP 


: 177570 






633 


1 195 






Ut V AUK 


002514 




_ 
% 


1222 


1253 






DH1 


021451 








728 


733 


753 








7^0 


ROT 


808 


813 




DH 1 


021575 








848 


853 


858 








QAQ 


913 


918 


1084 


381 7* 




021 722 






TOO OH 








n ! ?n 


021 757 








1074 


3838* 






022023 




069 


3845* 








nm 1 5 


022067 














n 


021476 




71 R 










DH40 


021621 




Qot 


382 1 # 








DH53 


021655 














DH6 


021523 




7QO 


81 8 


823 


828 


833 








QQR 


1 003 


1008 


1013 


1018 








099 


1 1 04 


3809* 








021550 














nTQDI A 


001042 




633# 


1 ■\ 95* 


1203* 


2721* 


2892* 




0001 74 




553^ 


1 203 










■• 177570 






632 


1 194 






AT 1 


022204 








729 


734 


754 








7QQ 




809 


814 


929 


DT 1 


022244 








849 


854 


859 








909 


914 


919 


1085 


3878* 




022302 




1 045 


3884# 










022314 




1 055 




1075 


3886* 




nr in 


022330 






3888# 








HT 1 1 5 


022344 




1 080 


3890* 








nro 


022214 




719 


3872* 










022254 






3880* 








nm^ 


022266 




924 


3882# 










022224 






819 


824 


829 


834 








999 


1004 


1009 


1014 


1019 










1105 


3874* 








022234 




744 


3876^ 








n\/&riT 


003314 






1 253# 








FCHO 


014762 




568 


3307* 


3336 






EMT VECs 


• 000030 




532# 


1179* 


1180* 








015266 




712 


3392* 








EMI 


015532 




747 


3424* 








C M 1 n A 

c: ivi J u w 


020546 






37 1 6* 








EMI 01 


02061 1 




1 033 


3722* 








EMI 02 


020637 




1038 


3726* 








EM103 


020676 




1043 


3732* 








EMI 04 


020734 




1048 


3737* 








EMI 05 


020771 




1053 


3742* 








EMI 06 


021014 




1058 


3746* 








EM107 


021052 




1063 


3751 * 








EMI 1 


01 5555 




752 


342£ .' 








EM110 


021 104 




1068 


3756* 








EMI 1 1 


021134 




1073 


3760* 








EM 11 a 


0211 74 




1078 


3766* 









SEO 0094 

USER SYMBOLS 



1493 


1498 


1499 


1510 


1512 


1514 


216? 


2172 


2437 


2441 














It .3 


1555 


1557 


1560 


2106 


21 13 


2124 


2131 


2180 


2191 


2196 


2209 


2217 


2220 


2228 


2233 


2289 


2322 


2326 


2351 


2376 


2383 


2403 


2415 


2479 


2482 


2544 












1977 
















1592 


1597 


1599 


1616 


1626 


1627 


1633 


1634 


1692 


1693 


1699 


1700 


1704 


1706 


1735 


1736 


1846 


1856 


1874 


1885 


1892 


18.99 


1914 


1921 


2007 


2016 


2023 


2030 


2047 


2056 


2066 


2079 


2232 


2251 


2259 


2290 


2301 


2321 


2331 


2350 


2559 


2578 


2611 












1772 


1800 


1823 


1855 


1891 


1920 


1924 


2490 


3350 


3352 


3354 


3860 


3863 






















SEQ 00< 


USER 


SYMBOLS 














1361 


1385 


1399 


1483 


1501 


1526 


1546 


1655 


1912 


1944 


2537 


2576 


2640* 








758 


763 


768 


773 


778 


783 


788 


793 


933 


938 


943 


948 


953 


958 


3801# 




863 


873 


878 


883 


888 


893 


898 


903 


838 


963 


968 


973 


978 


983 


988 


993 


1023 


1028 


1034 


1039 


1049 


1064 


1089 


1094 


759 


764 


769 


774 


779 


784 


789 


794 


934 


939 


944 


949 


954 


959 


3870# 




864 


874 


879 


884 


889 


894 


899 


904 


839 


964 


969 


974 


979 


984 


989 


994 


1024 


1029 


1035 


1040 


1050 


1065 


1090 


1095 
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SEQ Q096 



EMI 1 3 


021 21 1 


1 083 


3769# 


EMI 14 


021 247 


1 088 


3775# 


EMI 15 


021 306 


1 093 


378 1 M 


EMI 1 6 


021 345 


1 098 




EMI 1 7 


021 404 


1 1 03 


3793* 


EMI 2 


01 5620 


757 


3434* 


EM13 


01 5651 


762 


3439# 


EMI 4 


01 5704 


767 


3444** 


EM15 


01 5745 


772 


3450# 


EMI 6 


016010 


777 


3456# 


EMI 7 


01 6041 


782 


346 1 # 


EM2 


01 531 2 


717 


3396* 


EM20 


01 6074 


787 


3466* 


EM21 


01 61 35 


792 


3472# 


EM22 


016201 


797 


3479# 


EM23 


01 6236 


802 


3484# 


EM24 


01 6267 


807 


3489* 


EM25 


01 6322 


812 


3494# 


EM26 


01 6363 


817 


3500* 


EM27 


01 6426 


822 


3506* 


EMS 


01 5336 


722 


3400* 


EM30 


01 6465 


827 


35 1 2* 


EM31 


016516 


832 


351 7* 


EM32 


01 6551 


837 


3522* 


EM33 


016617 


842 


3529* 


EM34 


01 6661 


847 


3535* 


EM35 


016717 


852 


354 1 * 


EM36 


01 6747 


857 


3546* 


EM37 


01 7001 


862 


355 1 * 


EM4 


01 5403 


727 


3407* 


EM40 


01 7041 


867 


3557* 


EM41 


01 7067 


872 


356 1 * 


EM42 


01 71 27 


877 


3567.'' 


EM43 


017161 


882 


3572* 


EM44 


017212 


887 


3577* 


EM45 


01 7246 


892 


3582* 


EM-^e 


01 7303 


897 


3588* 


EM47 


01 7303 


902 


3587* 


EMS 


01 5425 


732 


34 1 1 * 


EM50 


01 7337 


907 


3593* 


EM51 


01 7364 


912 


3597* 


EM52 


01 741 4 


91 7 


360 1 * 


EM53 


017471 


922 


3609* 










EM55 


017653 


932 


3631* 


EM56 


017553 


937 


361 9* 


EM57 


01761 1 


942 


3625* 


EMS 


015462 


737 


3416* 


EM60 


01 7653 


947 


3632* 


EM61 


01 7702 


952 


3636* 


EM62 


017726 


957 


3640* 


EM63 


017773 


962 


3647* 


EM64 


020017 


967 


3651* 


EM65 


020043 


972 


3655* 


EM66 


0201 1 1 


977 


3662* 


EM67 


020147 


982 


3668* 
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CROSS REFERENCE TABLE 



SEO 009? 



— USER SYMBOLS 



EM7 


015506 


742 


3420* 


EM70 


020212 


987 


3674* 


EM71 


020257 


992 


3681* 


EM72 


020426 


997 


3700* 


EM73 


020321 


1002 


3687* 


EM74 


020357 


1007 


3693* 


EM75 


020426 


1012 


3701* 


EM76 


020455 


1017 


3705* 


EM77 


020501 


1022 


3709* 


ENDEV 


012052 


2605 


2636* 


ENDMG 


0121 72 


2663 


2676* 


ERRVEC= 


000004 


525* 


1 192 


FIRST 


006600 


1965* 


1967 


GNS 




3289 


3290 


GOAGIN 


012206 


2673 


2679* 


GTSWR = 


1 04405 


3294* 




HT = 


00001 1 


435* 


2996 


ID 


004056 


1214 


1395 


INIT 


0031 12 


1212 


1215* 


IOTVEC= 


000020 


530* 


1 177* 


LF 


000012 


436* 


2676 


LKS 


002406 


1 135* 


1661 






1771* 


1772 






1856* 


1857 






1953* 


1954 


MANL 


003132 


1216 


1219* 


MFR 


015145 


3324 


3350* 


MOR 


015157 


3329 


3352* 


MPAR 


015134 


3319 


3348* 


MSG 


015106 


3318 


3323 


MSTQP 


015172 


3334 


3354* 


Ml 


022140 


1417 


3860* 


M2 


022152 


1419 


3863* 


M2A 


022154 


1284* 


3864* 


OLDPC 


012300 


2698* 


2702* 


OUTTST 


015202 


569 


3370* 


PIRO = 


177772 


442* 




PIROVE= 


000240 


536* 




PRO 


000000 


459* 




PR1 


00004C 


460* 




PR2 


0001 00 


461* 




PR3 » 


000140 


462* 




PR4 = 


000200 


463* 




PR5 = 


000240 


464* 




PR6 


000300 


465* 




PR7 


000340 


466* 




PS 


177776 


439* 


440 


PSW * 


177776 


440* 




PWRVEC- 


000024 


531* 


1 183* 


RBUF 


002350 


1115* 


1462 






3876 




RCSR 


002346 


1114* 


1294 






2118 


2128 






2208* 


2215 






2350* 


2353 






3890 





1 193* 


1204* 


2870 


2871* 


2873* 


2876* 






1981* 


3882 














3291 


3292 


3294 


3296 


3297 


3298 






3037 
















1402 


1410* 














1 178* 
















3031 


3037 


3348 


3LjO 


3352 


3354 


3860 


3863 


1682 


1692* 


1693 


1699* 


1700 


1704* 


1706 


1726 


1778 


1800* 


1801* 


1802 


1810* 


1814 


1823* 


1824* 


1874* 


1891* 


1892* 


1893 


1899* 


1920* 


1921* 


1922 


1956* 


1957 


1960* 


2543* 


3878 


3882 






3328 


3333 


3339* 


3378 











3890 
3384 



1763 
1825 
1924* 



1768* 1769 
1832>f 1855* 
1928* 1948* 



1 184* 


2809* 


2810* 


2819* 


2827* 


2836* 


2837* 










2195 


2327* 


2384 


2389 


2407* 


2418 


2442 


2447 


2470 


2507 


2617 


1313 


1448 


1616 


1626* 


1627 


1633* 


1634 


1640* 


1w42 


1728 


2109 


2136 


2144 


2151 


2158* 


2167* 


2170 


2172 


2177* 


2178 


2193 


2197 


2226* 


2232* 


2249 


2251* 


2259* 


2287 


2290* 


2301* 


2321* 


2324 


2331* 


2359* 


2405 


2410 


2439 


2468 


2500 


2546* 


3874 


3884 


38e6 


3sei 
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MACY1 1 30A( 1052) 
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RCV 


01 1704 


2535 


261 7# 


RCVCNT 


01 1 736 


2548* 


25S5 


RDCHR = 


104407 


3229 


3297^ 


RDLIN = 


1 0441 


3298/f 




RE5VEC= 


000010 


526# 




RPSW 


002360 


1119)^ 


2280 


RSTRT 


012232 


2681 


26a5# 


RTCPSW 


002412 


1 1 Zl^ 


1 797 


RTCVT 


002410 


1 136i^ 


1678 






1889 


1 890* 


RVECT 


002356 


1 1 1B# 


1 61 2 






2281 * 


2297* 


SCPSW 


01 1740 


2532* 


2604 


SECND 


006602 


1974* 


1982# 


SETADR 


003530 


1302 


1 3oa# 


SHIFT 


003370 


1274# 


1283 


SIZE 


003142 


1222# 




SRPSW 


01 1736 


2531* 


2603 


STACK = 


001 1 00 


430# 




START 


002546 


567 


1 157# 


STKLMT= 


177774 


441 n 




STPSW 


Oil 734 


2530* 


2602 


SWR 


001040 


632# 


1 1 73 






1760 


1 792 






2578 


2726 


SWREG 


000176 


564^ 


1202 


SWO = 


000001 


494# 




swoo = 


000001 


4B4# 


494 


SW01 - 


000002 


483* 


493 


SW02 = 


000004 


482)*' 


492 


SW03 = 


000010 


481 i¥ 


491 


SW04 ~ 


000020 


480i¥ 


490 


SWOB - 


000040 


479# 


489 


06 = 


0001 00 


47B# 


488 


c J )7 - 


000200 


0,11 U 


487 


>■ jt ? = 


000400 


476* 


486 


t - 


00 t 000 


475# 


485 


b 1 


000002 


493# 






002000 


474;*' 




SW11 


004000 


473# 




5, 1? 


1 0000 


A12M 




Swia - 


020000 


471 # 




" u 4 


040000 


470# 






)0000 


469# 




A 


010004 


492*!? 






' 0001 


491# 






D00020 


490# 




SW5 = 


000040 


489# 




bw6 " 


0001 00 


488# 




SW7 


000200 


487# 




swa 


00400 


486# 




SW9 


001 000 


485# 




TBITVEs 


000014 


527!¥ 




T8UF 


Q02354 


1117^ 


1357 






2248* 


2286* 


TCLOCK 


005056 


1422 


1650)^ 
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2282* 



SEQ 0098 



USER SYMBOLS 



1799^ 
1679* 
1905* 
1613* 
2302* 
2630^^ 
3882 



2628*^ 
1 194* 
1846 
2738 
3126 



1376* 

2323* 



2303* 


2531 


2536* 


2603* 














1834* 


1850 


1852* 


1876* 


2532 


2542* 


2604* 








171 1* 


1796 


1798* 


1811* 


1822* 


1833* 


1849 


1851* 


1864* 


1875* 


1918 


1919* 


1935* 


2529 


2541 * 


2601* 










1647* 


2210 


221 1* 


2225* 


2235* 


2245 


2246* 


2260* 


2271» 


2279 


2309* 


2319 


2320* 


2337* 


2348 


2349* 


2366* 


2528 


2535* 


2600« 



1 196 
18B5 
2742 
3139 



1202* 

1914 

2817 



1381* 
2352* 



1429* 
2378* 



1209* 1211 
1946 1977 
2829* 2865 



1219 
2373 
2881 



1420 
2400 
3126 



1478 
2431 
3163>i< 



1657 
2433 



1675 
2490 



1724 
2539 



1432* 
2404* 



2085* 
2438* 



2088* 
2467* 



2108* 
2498* 



2135* 
2552* 



2169* 
2B13» 



2192* 
3872 
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SEQ 0099 



TOONS 
TCSR 



TKVEC = 

TMPI 

TMP2 

TIVIP3 

TDLER 

TPSW 

TPVEC = 

TRAPVE= 

TRTVEC= 

TSTDEV 

TSTDVM 

TST1 

TST10 

TST1 1 

TST12 

TST13 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TST32 

TST33 

TST34 

TST35 

TST36 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST44 

TST45 

TST5 

TST6 

TST7 



003450 
002352 



000060 
002340 
002342 
002344 
006550 
002364 
000064 
000034 
000014 
003500 
003276 
003522 
004424 
004572 
004724 
005064 
0051 34 
005304 
005474 
005602 
003674 
006020 
006166 
006302 
006430 
006604 
006704 
007016 
007144 
003746 
007250 
007470 
007560 
007626 
007776 
010140 
01 0306 
01 0422 
004126 
010530 
01 0626 
010750 
01 1054 
01 1 154 
01 1252 
0041S2 
004214 
004246 



1290 
1 1 16# 
1512 
1 591 ♦ 
2054 
2154* 
2264* 
2420* 
534# 
1 1 09,* 
1 1 1 O^S* 
1 1 1 1# 
1969 
1 1 21 # 
535# 
533** 
528# 
1291 
1247)f 
1298 
1521# 
1479 
1558 
1654# 
1656 
1674 
1757# 
1759 
1354* 
1791 
1845 
1884 
1913 
1945 
2015# 
2046# 
2078# 
1375# 
2104# 
2159 
2179 
2198 
224 1,j^ 
2277# 
2315i* 
2344# 
1407 
2372* 
2374 
2401 
2432 
2489^ 
2491 
1436 
1459^ 
1477# 



1292# 

1335 

1514* 

1592 

2056* 

2168* 

2267* 

2424* 

1288* 
1223* 
1 287» 
1971# 
1296 

1 181 * 

1301# 

1252 

1324 

1513 
1610# 

1658 
1676 

1761 

1793 
1847 
1886 
1915 
1947 



2165# 
2189# 
2206# 



2399# 
2430# 
2434 

2512 

1445# 



1377 

1523 

1597* 

2066* 

2180* 

2285* 

2436* 

1304* 
1231* 
1301 

2049 

1 182* 

1306 

1332# 

1568# 



1672# 
1717* 

1779 

1843# 
1882(1' 
191 1# 
1943# 
1978 



1382 


1394 


1430 


1435 


1481 


1492* 


1493 


1498* 


1499 


1510* 


1536* 


1537 


1542* 


1543 


1555* 


1557 


1560* 


1574 


1584* 


1585 


1599 


1989* 


1992 


2002* 


2007* 


2016* 


2021 


2023* 


2030* 


2047* 


2079* 


2084* 


2086 


2092* 


2106* 


21 13* 


2124* 


2131* 


2140* 


2146* 


2191* 


2196* 


2207* 


2209* 


2217* 


2220* 


2228* 


2233* 


2247* 


2254* 


2289* 


2322* 


2326* 


2351* 


2376* 


2379 


2383* 


2403* 


2408* 


2415* 


2437* 


2441 * 


2462* 


2479* 


2482* 


2544* 


2545* 


2559 


2611* 


3870 


1310 


1311* 


















1241* 


1245* 


1249* 


1269 


2638 


2680 










1303* 


1309* 


















2051* 


2073* 


2530 


2534* 


2602* 













2641 
2683 



2458# 
2523* 
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USER SYMBOLS 



SEQ 0100 



TVECT 


002362 


1 1 20(5^ 


1570 


1 57 1 * 


1 604* 


1 990 


1 991 * 


2001 * 


2009* 






2050* 


2062* 


2072* 


2032 


2083* 


2098* 


2527 


2533* 


TYPE s= 


1 0440 1 


1416 


1418 


2663 


2729 


2764 


2781 


2783 


2786 






3097 


31 37 


31 38 


3141 


3154 


31 65 


3184 


3233 


TYPOC = 


1 04402 


2772 


2796 


31 40 


3290^ 










TYPON = 


1 04404 


3292* 
















TYPOS = 


1 04403 


3291 # 
















VCTADR 


003320 


1 243 


1 257# 














VCTTBL 


002454 


1 1 40)4' 


1 257 


1319 












VECT 


003602 


1 320# 


1 323 














WACTV 


007270 


21 09# 


2112 














WAIT 


015114 


3341 # 


3342 


3345 












WDONE 


007376 


2 1 36A' 


2139 














WRPSW 


01 2242 


1 572 


1614 


1 680 


I 


1812 


1 853 


1 865 


1 887 






201 7 


2032 


2052 


2063 


2080 


2089 


221 2 


2243 






2346 


2356 


2525 


2553 


2688# 








WT 


007340 


21 25# 


2127 














XCONT 


01 1674 


261 


261 3# 














XMI T 


01 1650 


2533 


2607# 














XMTCNT 


01 1 730 


2547* 


2565 


2607* 


2626# 


3888 








XRET 


1 1 700 


2612 


261 4# 














$APTHD 


000500 


591 


597# 














SASTATx 


****** ^ 


1 344 


1 366 


1 390 


1 404 


1 488 


1 506 


1 532 


1 551 


$AT YC 


01 31 76 


2903 


2905* 














$ATY1 


01 31 52 


2901 # 
















$AT Y3 


1 31 60 


2902* 


2986 














$AT Y4 


01 31 70 


1 344 


1 366 


1 390 


1 404 


1 488 


1 506 


1 532 


1 551 


$AUTOB 


001 034 


629# 


31 34 


3255 












SBASE 


001142 


691 # 


1 1 46 


1 227 


1 235 










$BDADR 


001 022 


624# 


1 729* 


1 730* 


1731 


1 733* 


1 734 


1 735* 


1 738* 


SBODAT 


001 026 


626# 


241 0* 


2478* 


25 1 5* 


2595* 


3884 


3686 




SCHARC 


1 3676 


3003* 


30 1 3* 


3020 


3029* 


3034# 








SCKSWR 


01 41 30 


3 1 26# 


3296 














SCMTAG 


001 000 


61 2# 


1170 


1171 


1 1 79 


1 185 


1 1 86 






$CM3 = 


000000 


642# 
















$CNT LG 


01 4655 


31 37 


3250# 














$CNT LU 


01 4650 


31 54 


3249# 














SCPUOP 


001114 


665# 
















$CRLF 


001 063 


644# 


2729 


2764 


2783 


2788 


2792 


3002 


3037 


SDEVCT 


001 075 


656# 


1 1 6 1 * 


1414 


2637* 


2638 


2679* 






SDEVM 


001 1 44 


692# 


1 224* 










1289 


1 301 


SDOAGN 


012162 


2659 


2665 


2671# 












SENDAD 


01 21 52 


578 


2667# 


2749 












SENDCT 


01 21 32 


1 1 85 


266 1 # 














$ E NU L L 




















$ENV 


001 1 06 


661# 


1215 


2731 


2910 


2934 


2981 






SENVM 


001107 


662# 


1207 


1217 


2912 


2983 


2988 






$EOP 


012102 


1979 


2639 


2652# 












SEOPCT 


012124 


1 185* 


2658# 


2662 












SERFLG 


001003 


615# 


271 9* 


2856 


2879 


2885* 


2895 






SERMAX 


001015 


621# 


1 187* 


2891* 


2895 










SERROR 


012304 


1 179 


27l8*r 














SERRPC 


001016 


622# 
3886 


2723* 
3868 


2724* 
3890 


2725 


2770 


3870 


3872 


3874 


SERRTB 


001 146 


709# 


2778 














SERRTY 


012466 


2728 


2763# 















2019 
2599* 
2788 
3236 



2792 
3240 



2799 
3289^ 



2040'f 
2841 



2048 
3001 



1916 
2283 



1925 1936 1994 
2298 2317 2328 



3165 3249 
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MACY11 30A(1052) 
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CZDLDC. 


P11 19-APR-78 
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CROSS REFERENCE 


TABLE — 


USER : 


$ERTTL 


001012 


619# 


2722* 










SESCAP 


001060 


642* 


1 186* 


2745 


2747 


2890* 




SETABL 


001 106 


660# 












SETEND 


001 146 


603 


693# 










SFATAL 


001070 


653# 


1 157* 


2938* 








$FFLG 


013416 


2901* 


2904* 


2932 


2941* 


2949* 




SFILLC 


001056 


640# 


3006 


3037 








SFILLS 


001055 


639# 


3037 










$GDADR 


001020 


623# 


1726* 


1728* 


1729 


1731 


1736 


SGDDAT 


001024 


625# 


1734* 


1738 


2477* 


2514* 


2596* 


$GET42 


012142 


2664* 












SGTSWR 


014200 


3138# 


3294 










$H1BTS 


000500 


598# 












$ICNT 


001004 


6^6/^ 












$1 LLUP 


012762 


2809 


2827 


2844# 








SINTAG 


001035 


630# 


3166 


3255 








$1TEMB 


001014 


620# 


2725* 


2733 


2767 






$LF 


001064 


645# 


3037 


3240 


3249 






$LFLG 


013415 


2942* 


2948# 










$LPADR 


001006 


617# 


1 188* 


2883* 


2888* 


2893 


2895 


SLPERR 


001010 


618# 


1 189* 


2744 


2883 


2889* 


2895 


SMADRI 


001 1 20 


678# 












$MADR2 


001 124 


682# 












$IV1ADR3 


001 130 


685# 












$(VIADR4 


001 134 


688# 












$MAIL 


001066 


599 


603 


651*!' 


1206 


2887 


2981 


SMAMSI 


001 116 


672# 












$MAMS2 


001 122 


680# 












$IVIAMS3 


001126 


683# 












$MAIVIS4 


001 132 


686# 












$MBADR 


000502 


599# 












$MFLG 


013414 


2902* 


2908 


2943* 


2947* 






$IVINEW 


014673 


3141 


3253# 










$MSGAD 


001 102 


658# 


2918* 


2921 








SMSGLG 


001104 


659# 


2923* 










SMSGTY 


001066 


652# 


1 158* 


2916 


2924* 


2936 


2939* 


SMSWR 


014662 


3138 


3251# 










SMTYPI 


001 1 17 


673# 












$MTYP2 


001 123 


681# 












$IV1TYP3 


001 127 


684# 












$iVlTYP4 


001 133 


687# 












$NULL 


001054 


638# 


3008 


3037 








$NWTST= 


000001 


1329* 


1351# 


1372* 


1425* 


1442* 


1456* 






1754* 


1786# 


1840* 


1879* 


1908* 


1940* 






2203# 


2238# 


2274* 


2312* 


2341* 


2369* 


SOCNT 


014124 


3069* 


3098* 


3111* 








SOIVIODE 


014126 


3064* 


3068* 


3073 


3076* 


3087* 


31 13* 


$QVER 


013136 


2866 


2884 


2892* 








$PASS 


001074 


655# 


1206* 


1412 


2655* 


2656* 


2674 


$PASTM 


000506 


601# 












SPOWER 


012770 


2842 


2847# 










SPWRDN 


012622 


1 183 


2ao9# 


2836 








SPWRMG 


012756 


2842# 












$PWRUP 


012674 


2819 


2827* 










SOUES 


001062 


643# 


3037 


3184 


3233 


3249 




SRDCHR 


014412 


3197# 


3297 











3880 
3886 



1474* 
1985* 
2396* 



1518* 
2012* 
2427* 



1565* 
2043* 
2455# 



1607* 
2075*. 
2486* 



1651* 
2101# 
2520* 



leegjf 

2162# 



1714* 
2186* 



.MAIN. 


MACY1 1 


30A( 1052) 


19-APR 


-78 11 


:44 PA( 


CZDLDC. 


PI 1 


19-APR-78 


11:41 




CROSS i 


$RDDEC= 


<4i 4: * >«: If « 


U 


3299 






$RDLIN 


014532 




3225^* 


3298 




SRDOCTa 




U 


3299 






$RDS2 = 


000010 




32ia# 






SRTNAD 


012164 




2673# 






$R2A 3 


****** 


U 


3299 






SSAVRE^ 


**«*«* 


U 


3299 






$SAVR6 


012766 




2818* 


2828 


2838* 


$SCOPE 


013000 




1 177 


2863* 




$SETUP= 


0001 37 




560# 


1 1 76 


1177 


$STUP = 


177777 




560# 






SSVLAD 


01 31 02 




2874 


2880 


2886* 


$SVPC = 


000500 




576# 


581 




$SWR a 


161000 




541# 


642 


643 








1522 


1569 


161 1 








2016 


2047 


2079 








2431 


2459 


2490 








2865 


2877 


2879 


SSWREG 


001 1 10 




663# 


1209 




$SWRMK= 


000000 




2860 






$TESTN 


001072 




654# 


1 159* 


2887*. 








3890 






$TKB 


001046 




635# 


31 19 


3130 


$TKS 


001044 




634# 


31 19 


3128 


$TN * 


000046 




540* 


1329 


1333* 








1474 


1478* 


1518 








1714 


1 71 a^s* 


1754 








1944# 


1985 


1989* 








2186 


2190A' 


2203 








2373* 


2396 


2400* 


$TPB 


001052 




637# 


3026* 


3037 


STPFLG 


001057 




641# 


2975 


3037 


$TPS 


001 050 




636# 


302^ 


3037 


STRAP 


014704 




1181 


3266* 




$TRAP2 


014726 




3277# 


3288 




$TRP = 


000011 




3281# 


3290# 


3291* 


$TRPAD 


014740 




3271 


3288* 




STSTM 


000504 




600# 






STSTNM 


001002 




614# 


1650* 


2636* 


STTYIN 


014640 




3226 


3227 


3244 


$TYPBN= 




U 


3293 






$TYPDS= 




U 


3293 






STYPE 


013420 




2929 


2975# 


3281 


STYPEC 


013632 




3005 


301 2 


3019 


STYPEX 


013700 




3030 


3032 


3035* 


STYPOC 


013726 




3067# 


3290 




STYPON 


013742 




3066 


3069# 


3292 


STYPOS 


013702 




3062# 


3291 




SUN IT 


001 1 00 




657# 


1 162* 


1305* 


SUNITM 


000510 




602# 






SUSWR 


001 1 12 




664# 


1 163 


1165* 


$VECT1 


001 136 




689# 


1258 




$VECT2 


001 140 




690A' 






SXTSTR 


013012 




2868# 






$$GET4a 


000000 




2666# 






SOFILL 


014125 




3063* 


3067* 


3077 



— USER SYMBOLS 



SEO 0102 



1 179 


1181 


1 183 


1185 


1 186 


1188 


2654 


2864 


3121 


3255 


1 186 


1 188 


1189 


1333 


1355 


1376 


14*9 


1446 


1460 


1478 


1655 


1673 


1718 


1758 


1790 


1844 


1883 


1912 


1944 


1989 


2105 


2166 


2190 


2207 


2242 


2278 


2316 


2345 


2373 


2400 


2524 


2649 


2655 


2666 


2672 


2674 


2857 


2858 


2859 


2860 


2880 


2881 


2886 


2889 


2892 


2895 










3870 


3872 


3874 


3876 


3878 


3880 


3882 


3884 


3886 


3888 


3147 


3201 


3207 
















3144 


3168* 


3199 


3205 














1351 


1355* 


1372 


1376* 


1425 


1429* 


1442 


1446* 


1456 


1460* 


1522* 


1565 


1569* 


1607 


1611* 


1650 


1651 


1655* 


1669 


1673* 


1758* 


1786 


1790* 


1840 


1844* 


1879 


1883* 


1908 


1912* 


1940 


2012 


2016* 


2043 


2047* 


2075 


2079* 


2101 


2105* 


2162 


2166* 


2207* 


2238 


2242* 


2274 


2278* 


2312 


2316* 


2341 


2345# 


2369 


2427 


2431* 


2455 


2459* 


2486 


2490* 


2520 


2524* 







2654* 
3248* 



3289 
3024* 



1308* 
2471 



3294 
2856 



3295* 3296 



2685* 
2508 



3297# 3298* 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC. PI 1 19-APR-78 11:41 



11:44 PAGE 104 

CROSS REFERENCE TABLE 



USER SYMBOLS 



SEQ 0103 



.SERRT 
.$X 



001 146 
000500 



2865 




545* 


551 


590* 


592* 


2821 


2845 


71 1* 




587* 


592 



552* 
611* 
2895 



556* 
646 
2951* 



562* 
1 139* 
3037 



566* 
1 140* 
31 19 



571* 
1 174 
3248* 



576 
1 188 
3249 



577* 
1189 
3255 



579* 
2631* 
3358* 



581* 
2674 



587 
2675# 



588* 
2802# 



ABS. 022360 



ERRORS detected: 

DSKZ : CZDLDC , DSKZ : CZDLDC . SEO=DSKZ : CZDLDC. PI 1 
RUN-TIME: 25 14 1 SECONDS 
RUN-TIME RATIO: 357/41=8.6 
CORE USED: 21K (41 PAGES) 



DOCUMENT PAGES: 103 



